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.TITLE MAINDEC-11-DZPXB-E 

j#COPYRIGHT CO MARCH 21 # 1976 

;*DIGITAL EQUIPMENT CORP, 

J*MAYNARD, MASS. 01754 

J* 

japROGRAM BY D, ADAMS/B, BURGESS 

J* 

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAlNDEC SYSMAC 

j#PACKAGE (MAINDEC«11-DZQAC-C0),MAR 2 \ , 1976. 

;* 

STN = 1 

$SWRslb0000 »|HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 



{COPYRIGHT CO 1975,1976 

;THIS SOFTWARE IS FURNISHED UNDER LICENCE FOR USE ONLY 

;ON A SINGLE COMPUTER SYSTEM AND MAY BE COpIED ONLY WITH 

;THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 

JSOFTWARE, Or ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 

;OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSOM 

» EXCEPT FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO 

;THESE LICENCE TERMS, TITLE TO OWNERSHIP OF THE 

;SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC, 

jTHE INFOMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
jWTTHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
;BY DIGITAL EQUIPMENT CORPORATION, 

;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC, 



MAINDEC-11-DZRXB-E 
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43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
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{MODIFIED TO REV 
A) 



D BY B, BURGESS NOV, 10, 1975 AS FOLLOWS! 



ADDED CAPABILITY OF VARIABLE DEVICE 'BR' LEVEL, ALL RELEVANT TESTS 
CALCULATE 'CPU' LEVEL BASED ON CURRENT CONTENTS OF LOCATION 'BRLEV:', 
DEFAULT 'BR' LEVEL, FOR THE DEVICE, SET BY THE PROGRAM IS 5. ANY OTHER 
'BR' LEVEL C E.G. 6 ) WOULD HAVE TO BE PATCHED INTO LOCATION 'BRLEVS' 
BEFORE RUNNING THE PROGRAM, 

R) ADDED TWO (2) ROUTINES TO HANDLE 'UNEXPECTED' BUS TIMEOUT AND 

RESERVED INSTRUCTION TRAPS ( TRAPS TO VECTORS 4 &. 10, RESPECTIVELY), 
BOTH ROUTINES WILL INDICATE WHICH TRAP OCCURRED, THE 'PC' LOCATION 
OF WHERE THE TRAP OCCURRED, AND ATTEMPT TO RESTART THE PROGRAM, 

C) ADDED CODE TO FAILSAFE UNIT UNDERGOING TESTING IF PROGRAM *AS 
LOADED VIA UNIT USING 'RXDp' MONITOR AND USER STARTED RUNNING 

THE PROGRAM WITHOUT HAVING REPLACED His LOAD MEDIUM WITH A 'SCRATCH' 
DISKETTE, 

D) ADDED MESSAGES TO INDICATE TO USER WHEN HE hAS SELECTED TRACK AND/OR 
SECTOR LIMITS 'OUT OF RANGE' AND CORRESPONDING DEFAULT LIMITS WHEN 
THIS CONDITION ARISES 

E) MODIFIED TESTS 1 THRU 4 TO CORRECTLY PRINT OUT THE CONTENTS OF 
'KRXVEO ( LOCATION HOLDING THE DEVICE VECTOR) AS 264 INSTEAD OF 270. 

F) MODIFIED TEST 2 TO HANDLE A 'LOCKED IN INTERRUPT STATE' CONDITION 
ARISING WHEN 'INTERRUPT ENABLE' AND 'DONE' ARE BOTH QUALIFIED AND 
THE 'REQUEST INTERRUPT' FLOp NEVER GETS CLEARED, 

ADDED EXTENSIVE MAINTENANCE INFORMATION BASED ON FAULT INSERTION 
RESULTS, INFORMATION IS KEYED TO THE 'ERROR' REPORT WITHIN A 
TEST, INFORMATION PROVIDED SHOULD BE SELF-EXPLANATORY BUT SHOULD 
NOT BE MISCONSTRUED AS BEING ALL ENCOMPASSING DUE TO HUMAN ERRORS 
IN STATISTICS GATHERING, INABILITY TO FAULT INSERT SOME CHIPS, AS 
WELL AS ONLY TWO (2) MODULES ABLE TO BE FAULT INSERTED I,E, - 
M7846 (UNIBUS INTERFACE) AND M7727 (READ/WRITE CONTROL), 

ADDED FLOW CHARTS 



MAINDEC-11«DZRXR«E 


DZRXBE.Pil 




83 




84 




85 




86 




87 


001200 


88 




89 




90 




91 




92 


000011 


93 


000012 


94 


000015 


95 


000200 


96 


177776 


97 




98 


177774 


99 


177772 


100 


177570 


101 


177570 


102 




103 




104 


000000 


105 


000001 


106 


000002 


107 


000003 


108 


000004 


109 


000005 


110 


000006 


111 


000007 


112 




113 




114 




115 




116 


000000 


117 


000040 


118 


000100 


119 


000140 


120 


000200 


121 


000240 


122 


000300 


123 


000340 


124 




125 




126 


100000 


127 


040000 


128 


020000 


129 


010000 


130 


004000 


131 


002000 


132 


001000 


133 


000400 


134 


000200 


135 


000100 


136 


00k504<* 


137 


000020 


138 


000010 



MACY11 27C732) 16-MAP«76 15155 PAGE 3 



.SBTTL BASIC DEFINITIONS 



f*INITIAL ADDRESS OF THE STACK POINTER **# 1200 ### 
STACKS 1200 

.EQUIV EMT, ERROR {{BASIC DEFINITION OF ERROp CALL 

.EQUIV IOT, SCOPE {{BASIC DEFINITION OF SCOPE CALL 



{♦MISCELLANEOUS DEFINITIONS 



HT= 

LFs 

CP = 

CRLFs 

PS= 

.EQUIV 



11 

12 

15 

200 

177776 

PS,PSW 



STKLMT= 177774 
PlRQs 177772 
DSWRs 
DDISps 



177570 
177570 



j;CODE FOR HORIZONTAL TAB 

{{CODE FOR LINE FEED 

J {CODE FOR CAPRIAGE RETURN 

MCODE FOR CARRIAGE RETURN-LINE FEED 

{{PROCESSOR STATUS WORD 

j {STACK LIMIT REGISTER 
j {PROGRAM INTERRUPT REQUEST REGISTER 
{{HARDWARE SWITCH REGISTER 
{{HARDWARE DISPLAY REGISTER 



) 



{♦GENERAL PURPOSE REGISTER DEFINITIONS 

R0= %0 {{GENERAL REGISTER 

Rl= %1 ;;GENERAL REGISTER 

R2= %2 j {GENERAL REGISTER 

R3= %3 j { GENERAL REGISTER 

R4= %4 {{GENERAL REGISTER 

R5= %5 {{GENERAL REGISTER 

R6= %6 {{GENERAL REGISTER 

R7b %7 {{GENERAL REGISTER 

, EQUIV R6,SP {{STACK POINTER 

.EQUIV R7,PC nPROGRAM COUNTER 

^PRIORITY LEVEL DEFINITIONS 



PR0 = 
PR1 = 
PR2 = 
PR3 = 
PP4 = 
PP5 = 
PR6 = 
PR7 = 

;* H SW 

SW15 = 
SW14 = 
Swi3 = 
SWl2s 
SWlls 
SM0 = 
SW09 = 
SW08 = 
SW07 = 
SW06 = 
SW05s 
S^04 = 
SW03s 



100 
140 
200 
240 
300 
340 



{{PRIORITY LEVEL 

j {PRIORITY LEVEL 1 

; {PRIORITY LEVEL 2 

> {PRIORITY LEVEL 3 

j {PRIORITY LEVEL 4 

{ {PRIORITY LEVEL 5 

{ {PRIORITY LEVEL 6 

{ {PRIORITY LEVEL 7 



ITCH REGISTER" SWITCH DEFINITIONS 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 



MAINDEC-ll-DZRXB-E 
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139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
18] 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 



000004 
000002 
000001 



040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 



000010 
000014 
000014 
000014 
000020 
000024 
000030 
34 



SW02 = 

SW01 = 

SW00r 

.EQUIV 

.EQUIV 

, EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

, EQUIV 

.EQUIV 



W09,SW9 
W0B,SWR 
W07,SW7 
W06/SW6 
W05,SW5 
W04,SW4 
W03,SW3 
W02,SW2 
W01,SW1 
W00,SW0 



{*DATA BIT DEFINITIONS (BIT00 TO BIT15) 
BIT15S 100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 



BIT14= 
BIT13= 
BIT12= 
BITI 1= 

B1T10= 
BIT09* 
BIT08= 
BIT07= 
BIT06* 
BIT05= 
BIT04= 
BIT03= 
BIT02= 
BIT01* 
BIT00S 
, EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
, EQUIV 
.EQUIV 
, EQUIV 
.EQUIV 
.EQUIV 



2 

1 

BIT09#BIT9 

BIT08,BIT8 

BIT07,BIT7 

BIT06,BIT6 

BIT05,BIT5 

BIT04,BIT4 

BIT03,BIT3 

BIT02,BIT2 

BIT01,BIT1 

BIT00,BIT0 



64 

000240 



{*BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC= 4 {{TIME OUT AND OTHER ERRORS 

RESVECs 10 {{RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC=14 {{"T" BIT 

TRTVECs 14 » {TRACE TRAP 

BPTVECs 14 > {BREAKPOINT TRAP (BPT) 

IOTVECs 20 { {INPUT/OUTPUT TRAP (IOT) **SCOPE*# 

PWRVECs 24 ; {POWER FAIL 

EMTVECa 30 {{EMULATOR TRAP CEMT) #*ERROR*« 

TPAPVEC=34 {{"TRAP" TRAP 

TKVECa 60 »{TTY KEYBOARD VECTOR 

TPVECa 64 {{TTY PRINTER VECTOR 

PIRQVEC»240 {{PROGRAM INTERRUPT REQUEST VECTOR 
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DZRXBE.P11 BASIC DEFINITIONS 



{SPECIAL EQUATES 



195 








196 








197 








198 








199 








20® 




000017 




201 




000040 




202 




000101 




203 




000103 




204 




000105 




205 




000107 




206 




000115 




207 




040001 




20B 




000000 




209 








210 




000000 




211 


000000 


000000 000000 




212 








213 




000004 




214 


000004 


006130 




215 


000006 


000340 




216 


000010 


006154 




217 


000012 


000340 




218 








219 




000020 




220 


000020 


006476 




221 


000022 


000340 




222 


000024 


015116 




223 


000026 


000340 




224 


000030 


006232 




225 


000032 


000340 




226 


000034 


015046 




227 


000036 


000340 




228 








229 




000046 




230 


000046 


002452 




231 








232 








233 




000052 




234 


000052 


000000 




235 








236 




000174 




237 


000174 


000000 




238 


000176 


000000 




239 








240 








241 




000200 




242 


000200 


000401 




243 


000202 


000402 




244 


000204 


000137 001232 


IS! 


245 


000210 


000137 001222 


2SS 


246 








247 








248 









BDEB 


= 17 


DONEBIT 


= 40 


FBIE 


= 101 


EBIE 


= 103 


WRTIE 


= 105 


RDIE 


= 107 


WTDDIE 


= 115 


RECAL 


=40001 


OPEN 


= 


. = 






.WORD 0,0 


,34 




.WORD 


BUSERR 


.WORD 


PR7 


.WORD 


RESERR 


.WORD 


PR7 


. = 20 




XSCOPE 




PB7 




SPWRDN 




PR7 




XERPOR 




PR7 




STRAP 




PR7 




. = 46 




LOGICAL 




,=b2 




.WORD 




. = 174 




DISPREGl 


: 


SrtREG: 






{ READ B CODE 

j IE+FILL BUFFER 

{ IE+EMPTY BUFFER 

j IE+WRITE SECTOR 

; 1E+READ SECTOR 

; IE+WRITE DD SECTOR 



{UNEXPECTED TIMEOUT TRAP PC 

{UNEXPECTED TIMEOUT TRAP PS 

{UNEXPECTED RESERVED INSTRUCTION TRAP PC 

; UNEXPECTED RESERVED INSTRUCTION TRAP PS 



{ADDRESS OF TRAP SERVICE 



{ACT 11 EOP HOOKS 



BR IS 

BR 2S 

JMp SA200 {OPERATOR SELECTED CONDITIONS 

JMP SA202 {RESTART PROGRAM WITH PREVIOUS PARAMETERS 
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249 .SBTTL TEST SELECTION VIA SWITCH REGISTER 

250 

251 ;;**#***«•*********#*#*#»*#**#*#*****»**#*###*##*#*###*########*## 

252 { i fit********************************************** *****##***»#*#* 

253 {{a************************************************************** 
254 

255 {SET TEST AND DRIVE SELECTION IN " DTESTP " LOCATION 1212 

256 ; 

257 . BIT 15 = 1 - UNIT 1 SELECTED 

258 j BIT 14 = 1 - UNIT SELECTED 

259 , BIT 15 &, BIT 14 = - BOTH DRIVES MUST BE READY 
2b0 , 

26 ! ; BIT 4 - BIT = OCTAL NUMBER OF DESIRED STABTING TEST 

262 { BIT 4 - BIT 0=0 -ALL TESTS WILL BE SEQUENCED THROUGH 

263 

264 ', 1 ***********#»*******##**#****#**#***##**###**»#*****»#**##**### 

265 j j*************************************************************** 
2b6 1 l Hi************************************************************* 
267 

268 

269 , SBTTL OPERATIONAL SWITCH REGISTER POSITIONS 

270 

271 {{******♦**********### **4M#**##*#**#*## *****# *###*###*#*##»#*###* 

27 2 { !»***###*#*#*#**##»***#**######*#*»#*»####*»##*#######*#*##*###*. 

27 3 > { »•***###*###***##*#######**##########*#####»*##*#*#♦###*##*##### 

274 

275 j SET OPERATING CONDITIONS IN THE SWITCH REGISTER (HARDWARE) 

276 { OR SOFTWARE SWITCH REGISTER LOCATION 176 
277 

278 { 15 = 1 - HALT ON ERROR 

279 { 14 = 1 - HALT AT END OF PASS 

280 {13=1- INHIBIT ERROR TYPEOUT 

281 {12=1- LOOP ON TEST 

282 • 11 s 1 - LOCK ON ERROR 

283 { 10 s 1 - HALT AT END OF TEST 

284 {9=1- PRINT ALL DATA ERRORS 

285 {9=0- PRINT ONLY FIRST 10 DATA ERRORS PER SECTOR 

286 j 8 = 1 - INHIBIT RECALIBRATION ON SEEK ERRORS, 

287 > 

288 {0=1- INHIBIT <BELL> AT ERROR 
289 

290 { 15-0 a 1 - SELECT SOFTWARE SWITCH REGISTER 

291 

29 2 > ;*»**»*******#********#■*********#*###*#******#****»**###**##***# 

29 3 > I ******##*#********»***#»**##************##********»**#**##*#*** 

29 4 > i *#********»****»*##*****#*###*»**#*#*******#**#*#*#*####»**#*## 
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295 ,SBTTL RXCS (RX COMMAND STATUS REGISTER) 

296 

297 001200 .aSTACK 

298 

299 001200 000000 OD: iOD/IO « UNLESS SPECIFIC TRACKS SELECTED, 

300 001201 IDsOD+1 

301 001202 015001 FIRST! 015001 » FIRST = 1, LAST » 32 

302 001203 LASTssFIRST+1 
303 

304 001204 000264 KRXVECs 264 

305 

306 001206 177170 PXCSJ 177170 

307 

308 J RXCS! STANDARD DEVICE ADDRESS = 177170 

309 

310 I TOGGLE INTO PROGRAM LOCATION " RXCS n THE RXll DEVICE ADDRESS IF NOT = 177170 

311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 



.) 



?KEY: R - READ 


ONLY BIT 


; W • WRITE 


ONLY 


BIT 


? 




15 - 


R - ERROR 


J 




14 - 


W - INITIALIZE 


i 




13 - 








12 - 








11 - 


(BITS 13-8) 


1 




10 - 


(NOT USED) 


i 




9 - 




1 




8 - 




J 




7 - 


R - TRANSFER REQUEST 






6 - 


R/W- INTERRUPT ENABLE 


; 




5 - 


R - DONE 


> 




4 - 


W - UNIT SELECT 


? 




3 - 


W - FUNCTION 


; 




2 - 


W - FUNCTION 






1 - 


W - FUNCTION 






- 


W - GO 1 


; FUNCTION 








J 3 2 1 








j • - - GO 








! + GO 


. 


FTLL 


BUFFER 


i 2 + GO 


- 


EMPTY BUFFER 


; 4 + GO 


- 


IaRITE SECTOP 


j 6 + GO 


- 


READ 


SECTOR 


; 12 + GO 


. 


READ 


STATUS » A " 


f 14 + GO 


- 


WRITE DELETED DATA 


; 16 + GO 


- 


READ 


STATUS " B " CCODES) 
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DZRXBE.P11 RXDB (RX DATA BUFFER REGISTER) 

346 .SBTTL RXDB (RX DATA BUFFER REGISTER) 

347 

348 001210 177172 PXDBS 177172 

349 

350 ; RXDB: STANDARD DEVICE ADPESS s 177172 

351 

352 J THE FOLLOWING BIT IDENTIFICATION REPRESENTS THE STATUS AT THE END OF A frUNCTIOM 

353 j (BUT NOT FUNCTION 8 lb TO READ S1ATUS " B ") DISPLAYED WITHIN THE RX-DATA bUKFER. 

354 

355 j (4) 7 - SELECTED DRIVE READY 

356 ,* 6 - DELETED DATA 

357 j 5 - 

358 j 4 - 

359 ; 3 - WRITE PROTECT ERROR 

360 J (B) 2 - INITIALIZE DONE 

361 J 1 » PARITY ERROR 

362 1 " CRC ERROR 
363 

364 j (A) - VISIBLE ONLY IF THE FUNCTION WAS * 12 READ STATUS " A " 

366 ; (B) - INIT DONE VISIBLE IF AN INITlZLlAE LKEYJ OP [PROGRAMMED] WAS ISSUED 

367 

368 001212 000000 DTESTP." 

369 

370 001214 000005 BRLEV: 5 

371 

372 ;BRLEV: STANDARD PRIORITY INTERRUPT LEVEL = 5 

374 "TOGGLE INTO PROGRAM LOCATION "BRLEV" THE RXll INTERRUPT PRIORITY 

375 ;LEVEL IF NOT = 5 
376 

377 001216 177570 SWRj ,WORD DSwR 

378 001220 177570 DISPLAYl .WORD DDISP 
379 

380 > R0 - GOOD /EXPECTED RESULT OF TEST 

381 ; Rl - EAC /ACTUAL RESULT OF TEST 

382 J R2 - BLANK / 

383 j R3 - TEST Q 

384 

385 j j it**************************************************** *#*#*#*#** 

386 

387 fWORD "UNITSEL" HAS THE FOLLOWING BIT DEFFINITIONS 

388 1 

389 JBIT15 a 1 «• UNIT 1 SELECTED FOR USE 
39« JBIT14 a 1 - UNIT 1 IN USE 

39! »BIT8 a 1 - THIS PASS HAD AN ERROR 

392 >BIT7 e 1 - UNIT SELECTED FOR USE 

393 JBIT6 = 1 - UNIT IN USE 

394 JBIT4 = UNIT SELECTION BIT 
395 

397 



MAINDEOU*DZRX8-E MACYli 27(732) 16-MAR-76 15 1 55 PAGE 9 

DZRXSE.P11 START AND RESTART ADDRESSES 



398 












, SBTTL START AND RESTAl 


399 
















400 










I THE STARTING ADDRESS WAS 202 


401 
















402 


001222 


005200 






SA202: 


INC 


R0 


403 


001224 


012706 


001200 






MOV 


SSTACK,SP 


404 
405 
406 
407 

408 


001230 


000447 








BR RESTART 










; THE STARTING ADDRESS WAS 200 


001232 


005000 






SA200J 


CLR 


P0 


409 


001234 


012737 


177570 


001216 




MOV 


0177570, SWR 


410 


001242 


012706 


001200 






MOV 


*STACK,SP 


411 


001246 


104400 


016704 






TYPE ,MREV 


412 


001252 


013746 


000004 






MOV 


4,«(SP) 


413 


001256 


012737 


001276 


000004 




MOV 


MS, 4 


414 


001264 


022777 


177777 


177724 




CMp 


#177777, 0SwR 


415 


001272 


001402 








BEO 


2S 


416 


001274 


000423 








BR 3$ 


417 


001276 


022626 






1$: 


CMP 


(SP)+, (SP) + 


418 


001300 


012737 


000176 


001216 


2s: 


MOV 


*SwREG,SwR 


419 


001 306 


012737 


000174 


001220 




MOV 


IDISPREG, DISPLAY 


420 










.SBTTL 


GET 


VALUE FOp SOFTWARE 


421 


001314 


005737 


000042 






TST 


B»42 


422 


001320 


001H06 








bNE 


64$ 


423 


001322 


023727 


001216 


000176 




CMp 


SWR,»SWREG 


424 


001330 


001005 








BNE 


65$ 


425 


001332 


104404 








GTSWR 


426 


001334 


000403 








BR 


65$ 


427 


001 336 


112737 


000001 


015044 


64$: 


MOVB HfSAUTOB 


428 


001 344 








b5SS 






429 


001344 


012637 


000004 




3$: 


MOV 


CSP)+,4 


430 


001350 


000005 






RESTAPT:RE5ET 


431 


001352 


012746 


000340 






MOV 


8PR7,-(SP) 


432 


001 356 


012746 


001364 






MOV 


MSfCSP) 


433 


001362 


000002 








PTI 




434 


001364 


013737 


001206 


001210 


4$! 


MOV 


RXCS, RXDB 


435 


001372 


062737 


000002 


001210 




ADD 


82, RXDB 


436 


001 400 


012 7 3 7 


001234 


012626 




MOV 


8001234, RANI 


437 


00140ft 


012737 


000765 


012630 




MOV 


8000765, RAN2 


438 


001414 


005037 


002526 






CLR 


CCOUNT 


439 


001420 


005037 


002530 






CLP 


PASS 


440 


001424 


005037 


00b756 






CLR 


HANGER 


441 


0014 30 


012737 


177740 


0067b0 




MOV 


8177740, HANGPL 


442 


001436 


005700 








TST 


R0 


443 


001440 


001055 








BNL 


XSA202 


444 


001442 


005037 


012 7 2 4 






CLR 


UMTSEL 


445 


001446 


032737 


1 40000 


001212 




BIT 


8140000, DTESTP 


446 


001454 


001 004 








BNE 


1$ 


447 


P01456 


052737 


100200 


012724 




BIS 


8100200, UNITSEL 


448 


001464 


000415 








BP 2$ 


449 


001466 


032737 


040000 


001212 


is: 


BIT 


8BIT14,DTESTP 


450 


001474 


001434 








BEO 


3$ 


451 


001476 


052737 


000200 


012724 




BIS 


8200, UNITSEL 


452 


001504 


005737 


001212 






TST 


DTESTP 


453 


001510 


100003 








BPL 


2S 



jRESET TO HARDWARE SWR. 

jPRlNT THE NAML AND REVISION 
JSAVE 'BUSERR' TIMEOUT 'PC' 
J SET UP TIMEOUT VECTOR 
; IS SOFTWARE SWR SELECTED 
jYES, INSERT IT'S ADDRESS 
;BR IF NO TIMEOUT TRAP OCCURS 
j RESTORE THE STACK 

JPOINT TO SOFTWARE SWITCH REGISTER 
jPOINT TO SOFTWARE DISPLAY REG, 
SWITCH REGISTER 

MARE WE RUNNING UNDEP XXDP/ACT? 

;jBRANCH IF YES 

USOFTWARE SWITCH REG SELECTED? 

;>bRANCH IF NO 

;»GET SOFT-SWR SETTINGS 

jlSET AUTO-MODE INDICATOR 

;RESET TIMEOUT VECTOR TO 'bLSERR' 
{INITIALIZE THE RXll SYSTEM 



;LOAD THE PSW 
jGET ADDRESS OF RXCS 
;SET UP ADDRESS OF RXDB 
! INITIALIZE CONSTANTS OF 
; RANDOM NUMBER GENERATOR 



j STARTING ADDRESS WAS 202 

JWEPE ANY DRIVES SELECTED 

J YES GO SET THEIR BITS 

;NO, BOTH UNITS MUST BE READY 

;WAS UNIT SELECTED 
}NO, MUST BE UNIT 1 
JYES, SET SELECTED BIT 
;WAS UNIT 1 SELECTED 
jNO 
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454 


001512 


052737 


100000 


012724 




BIS 8BIT15, UNITSEL 


455 


001520 


123727 


000041 


000010 


2s: 


CMPB 41,810 


456 














457 


001526 


001022 








BNE XSA202 


458 


001530 


0057 37 


000042 






TST 0842 


459 


001534 


001410 








BEQ 5$ 


460 


001536 


042737 


000200 


012724 




BIC 8200, UNITSEL 


461 


001544 


104400 


016173 






TYPE ,MUNIT1 


462 


001550 


104400 


016203 






TYPE ,MONLY 


463 


001554 


000 407 








BR XSA202 


4b4 


001556 


104400 


017226 




5$: 


TYPE, D0LOAD 


465 














466 














467 














468 


001562 


000000 








HALT 


469 


001564 


000403 








BP XSA202 


470 


001566 


052737 


100000 


012724 


3$: 


BIS «BIT15, UNITSEL 


471 


001574 


042737 


100200 


001200 


XSA202: 


BIC #100200,00 


472 


001602 


104 400 


015614 






TYPE, MDTESTP 


473 


001606 


013746 


001212 






MOV DTESTP#-(SP) 


474 


001612 


104402 








TYFOS 


475 


001614 


006 








.BYTE 6 


476 


001615 


000 








.BYTE 


477 


001616 


104400 


016120 






TYPE ,MCRLF 


478 


001622 


005737 


001200 




LIMITS: 


TST OD 


479 


001626 


001005 








BNE TRKLMT 


480 


001630 


005037 


013136 






CLR 5EQUEN 


48] 


001634 


104401 


016417 






TYPE ,MLIMTRK 


482 


001640 


000432 








BR SECLMT 


483 














484 










; < = 


OD <a ID <s 114 


485 














486 


001642 


123727 


001201 


000114 


TPKLMT: 


CMPB ID, 8114 


487 


001650 


101021 








BHI 1$ 


488 


001652 


123737 


001200 


001201 




CMPB OD,ID 


489 


001660 


101015 








BHI 1$ 


490 


001662 


104400 


016445 






TYPE ,MOD 


491 


001666 


113746 


001200 






MOVB OD,-(SP) 


492 


001672 


104402 








TYPOS 


493 


001674 


003 








.BYTE 3 


494 


001675 


000 








.BYTE 


495 


001676 


104400 


016451 






TYPE ,MID 


496 


001702 


113746 


001201 






MOVB ID,-(SP) 


497 


001706 


104402 








TYPOS 


498 


001710 


003 








.BYTE 3 


499 


001711 


000 








.BYTE 


500 


001712 


000405 








BR SECLMT 


501 


001714 


104400 


017053 




IS! 


TYPE, OD2BIG 


502 














503 














504 


001720 


005037 


001200 






CLP OD 


505 


001724 


000736 








BR LIMITS 


506 














507 










J 1 < = 


FIRST <s LAST <a 32 


508 














509 


001726 


105737 


001202 




SECLMTj 


TSTB FIRST 



jyes,set the selected bit 

j was program loaded in dump mode 

>VIA XXDp? 

jBRANCH IF MOT 

JCHECK FOR PXDP OPERATION 

jIN CHAIN MODE, DESELECT UNIT 



;AND DO NOT HALT 

J INFORM USER TO REMOVE LOAD MEDIUM 

jFROM UNIT AND REPLACE WITH 

jA 'SCRATCH' DISKETTE IF HE 

;W1SHES TO TEST UNIT 

{WAIT FOR USER RESPONSE 

»SET SELECTED BIT 

jCLEAR 1ST TIME BITS FOR BOTH DRIVES 



J JSAVE DTESTP FOR TYPEOUT 
jjGO TYPE--OCTAL ASCII 
j jTYPE 6 DIGIT(S) 
JJSUPPRESS LEADING ZEROS 



jTYPE MSG. INDICATING ID OR OD 
jTOO BIG & DEFAULTING TO TRACKS 
;0, 52, 53, 114 
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510 


001732 


001003 






511 


001734 


112737 


000001 


001202 


512 


001742 


123727 


001203 


000032 


513 


001750 


101023 






514 


001752 


123737 


001202 


001203 


515 


001760 


101017 






516 


001762 


104400 


016457 




517 


001766 


113746 


001202 




518 


001772 


104402 






519 


001774 


003 






520 


001775 


000 






521 


001776 


104400 


016470 




522 


002002 


113746 


001203 




523 


002006 


104402 






524 


002010 


003 






525 


002011 


000 






526 


002012 


104400 


016120 




527 


002016 


000406 






528 


002020 


104400 


017140 




529 










530 










531 


002024 


012737 


015001 


001202 


532 


002032 


000753 







BNE IS 

MOVB »1, FIRST 

CMPB LAST,«32 

BHI 2$ 

CMPB FIRST, LAST 

BHI 2$ 

TYPE ,MF1PST 

MOVB FIRST, -(SP) 

TYPOS 

.BYTE 3 

.BYTE 

TYPE ,MLAST 

MOVB LAST,-(S 

TYPOS 

.BYTE 3 

.BYTE 

TYPE ,MCRLF 

BP PRETEST 

TYPE, S2BIG 



MOV 8(15001, FIRST 
BR 3S 



SP) 



...) 



{TYPE MSG. INDICATING THAT 
{SECTOR RANGE SELECTED WAS 
{INVALID AND DEFAULTING TO A 
{ 1ST SECTOR VALUE OF 1 AND 
{A LAST SECTOR VALUE OF 32 
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533 










534 










535 










536 










537 










538 










539 










540 










541 










542 










543 










544 










545 










546 










547 










548 


002034 


042737 


000400 


012724 


549 


002042 


005037 


006472 




550 


00204b 


000004 






551 


002050 


013737 


006556 


002532 


552 


002056 


012700 


000040 




553 


002062 


017701 


177120 




554 


002066 


020100 






555 


002070 


001407 






556 


002072 


062737 


000001 


006756 


557 


002100 


005537 


006760 




558 


002104 


001366 






559 










560 










561 










562 


002106 


104000 






563 











.SBTTL PRETEST - INITIALIZE [KEY] PART I 

"KEY" INITIALIZE SHOULD HAVE [SET] THE DONE FLAG BECAUSE 

A*I* [INIT] OF THE RX01 MICROCONTROLLER Is AN IMPLIED [READ SECTOR] 

OF TRACK 1 SECTOR 1 [FOR SYSTEMS PROGRAMMING BOOTSTRAP APPLICATIONS), 

THEREFORE, ANY ERROR (EXCEPT PARITY) THAT MAY OCCUR FROM A NORMAL 
"READ SFCTOR" COMMAND MAY OCCUR HERE CAUSING THE ERROR FLAG TO SET, AND 
DISPLAYING THE ERROR STATUS WITHIN THE TRANSFER REGISTER AT "DONE". 

THE TRANSFER REQUEST FLAG SHOULD BE CLEARED, 

SCOPE LOOPING IS NOT OFFERED BECAUSE THE "INIT" FUNCTION 
WHICH PRODUCED THE ERROR HAS NOT YET BEEN VERIFIED, 



PRETEST! BIC « 6IT8 , UN I TSEL 

CLP ERRORS 

SCOPE 

MOV PCSCOPE,FAST 

MOV #40, R0 
3S I MOV 9 RXCS, Rl 

CMP Rl, R0 

BEO IS 

ADD 81, HANGER 

ADC HANGPL 

BNE 3$ 



(R0) 



: 40 f (Rl) s ACTUAL RXCS 
ERROR 



j REFRESHES FAST FOP ERROR TYPEOUI 

{ FOR ERROR TYPEOUT INFORMATION 

; PROGRAM EXPECTS DONE FLAG 

{ ACTUAL CONTENTS OF RXCS 

{ OK 

{WAIT FOR THE INIT, FUNCTION TO 
{FINISH BEFORE CALLING IT AN ERROR 



(R2) s N/A 

{ RXCS NOT = 40 (DONE) 



i/«\i/»\i/*\i/*\i/*\i/«\i/*\i/*\t/«Vi/*Si/*\i/»\i/»\i/*\i/*\:/«Nj/*\:/*\i 
>/*\i/#\j/*\:/#\5/*\i/*\:/*\j/*\:/*\:/#\i/#\:/#\j/*\:/*\j/#\:/#\:/#\{/*\{ 
i/»\t/*\i/*\i/*\t/*\i/*\t/*\i/*\:/»\t/*\t/*\i/»\t/*\t/*\ i /*\ i /#\ i /*\ i /*\ l 

{THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

{THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

{BASED ON FAULT INSERTION PESULTS, AND SHOULD PROVIDE LOGICAL 

{AREAS TO CHECK FOP THE RELEVANT FAULT/S, 

> 

J IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

{ANALYZE THE FOLLOWING AREA/S! 



JM7846 (UNIBUS INTERFACE) 

I 

{ SIGNAL NAME 

I 



POSSIBLE CHIPS 



MAKE SURE THE DRIVES ARE CONNECTED CORECTLY,THE 
DISKETTES INSERTED, AND THE DOORS OF THE SELECTED DRIVES 
ARE CLOSED, IF THE THESE CONDITIONS ARE NOT SET THERE 
WILL BE AN ERROR AT THIS POINT, 



jB TRANSFER REQUEST 



STUCK HIGH 



E22 
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JDONE 

>RUN(0) H 

jSELECT 00 

}B DONE 

>RUN(i) H 

jRX INIT 

>OUT 

>B INIT 

jBUS -> RXCS 

jBUS INTR 

jBUS D02/D04 

|RUN(1) H 

jINT ENBC1) H 

JTPANSFER REQUEST 

jINT ENBC1) H 

, .......... 

1 ---------- 

>CMD 
»B DONE 
|PUN(0) H 
>OUT 
)RX INIT 

»in 

fRX RUN 

, .......... 



1 ------- 

JBUS 015 
>DATA 



STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK HIGH 

STUCK HIGH 

STUCK HIGH 

STUCK HIGH 

STUCK HIGH/LOW 

STUCK HIGH 

STUCK LOW 

STUCK LOW 

STUCK LOW 

STUCK HIGH 

STUCK HIGH 

STROBE DISABLED 

'A' INPUTS NOT SELECTED 

STUCK LOW 

STUCK HIGH 

STUCK HIGH 

STUCK LOW 

STUCK LOW 

STUCK HIGH 

STUCK LOW 

LOCKED IN 'PRESET' STATE 

NO STROBE SIGNAL 

STUCK LOW 

STUCK HIGH 



E22,E36,E1 

E22 

El8,E34,El7,E40,EH 

E18,E15,E19,E41 

E18 

E32 

E23,E4 

E36,E8 

E36,E40 

E38 

E38 

E37 

E37 

El 

El 

El 

El 

E17,E21 

Elb 

EH5 

E24 

E21,E11 

E21 

E14 

E2 

E3 

E9 

Ell 



j IF THE FAULT CANNOT BE FOyND ON THF UNIBUS INTERFACE MODULE 

•AND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 

I M 7 8 4 6 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE REAO/wrITE 
JMODULE M7727, 

note: only APPPOX. 30% OF THIS module LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS; ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE Is NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 



M7727 (READ/WRITE CONTROL) 
SIGNAL NAME 



SEL TRK 
DK0 TRK 
SEL DK0 
DC LO 
OUT 



POSSIBLE CHIPS 



PIN 15 NOT AT GROUND 


E15 


STUCK LOW 


E15 


STUCK LOW 


E15 


STUCK LOW 


E13 


STUCK LOW 


E13 


STUCK HIGH 


El 3 


E18 CLOCK LOCKED HIGH/LOW 


E14,E18 


PEPLACE El 8 
STUCK LOw 




E 1 8 , E 1 6 


PIN 14 NOT +5V THRU IK 


E16 
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•JtK' INPUTS TO E18 LOCKED 

HIGH/LOW 
'J' INPUT TO E16 LOCKED HIGH 



j/j\»/j\*/i\»/j\*/:\*/:\*/:\*/j\*/s\#/j\*/s\*/;\*/:\»/:\*/j\*/:\#/;\#/j\* 
t/i\*/i\*/i\»/i\#/:\#/i\*/:\#/i\»/:\#/i\*/i\#/i\#/i\»/i\#/:\#/!\#/»\#/i\» 
j/!\#/i\#/i\*/t\#/i\#/i\»/»\#/:\#/:\#/i\*/i\»/i\#/:\*/i\#/j\#/i\#/j\#/i\# 



653 








654 








655 








656 








657 








658 








659 








660 








661 








662 








663 








664 








665 








666 


002110 


012737 


177740 


667 


002116 


012700 


000204 


668 


002122 


017702 


177062 


669 


002126 


010201 




670 


002130 


042701 


000100 


671 


002134 


105737 


012724 


672 


002140 


100404 




673 


002142 


042701 


000200 


674 


002146 


042700 


000200 


675 


002152 


020100 




676 


002154 


001544 




677 








678 








679 








680 








681 








682 


002156 


104000 




683 








684 









I //////////////////////////////////////////////////////////////////////// /////// 

J STATUS A [RXDB] AT "DONE" 
J76--3210 / 



; SEL 

J DRIVE DD 



WRITE INIT PAR 
PROTECT [DONE] 

(N/A) 



1/////////////////////////////////////////////////////////////////////////////// 



MOV #177740, HANGPL 

MOV #204, P0 

MOV 9PXDB#R2 

MOV R2,R1 

BIC #BIT6»R1 

TSTB UNITSEL 

BMI 28 

BIC #BIT7,P1 

BIC #BIT7/R0 

CMP Rl, R0 

BEQ REBEGIN 



J RESET HANG COUNTER 

jEXPECT INIT DONE AND UNIT RDY 



jCLEAR DELETED DATA BIT 
|WAS UNIT SELECTED 



|UNIT WAS NOT SELECTED 
»CLEAR THE DRIVE RDY BITS 



> (R0) s 4 IF UNIT IS NOT SELECTED, OR 204 IF UNIT IS SELECTED 

J (Rl) a ACTUAL RXDB MINUS DELETED DATA BIT#6 
; (R2) = ACTUAL RXDB 

ERROR > RXDB NOT = 4, OR 204 



|/»\|/*\|/»\|/*\|/#\»/*\|/#\|/#\|/#\|/#\|/#\|/#\|/#\|/#\!/#\|/#Sl/#\|/#Nl 

i/»\i/»M/»\i/*\i/*\i/*\i/*\i/*\i/«\t/*\i/»\i/»\i/»\:/«\i/*\i/*\i/*\i/*\i 

|/«\l/*M/»\l/#\l/*\l/*\l/#\l/*\l/*M/*M/*\l/*\l/*\l/#\l/#M/*M/*\j/#\l 

ITHE FOLLOWING IS A PRESENTATION OF pOSSlbLE REASONS AS TO WHY 

JTHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

JBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

JAREAS TO CHECK FOR THE RELEVANT FAULT/S, 

1 

>IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

jANALYZE THE FOLLOWING AREA/Sl 
} 
JM7846 (UNIBUS INTERFACE) 



SIGNAL NAME 



POSSIBLE CHIPS 
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NOTEj MAKE SURE THE DRIVES ARE CONNECTED CORECTLY,THE 

DISKETTES INSERTED, AND THE DOORS OF THE SELECTED DRIVES 
ARE CLOSED, IF THE THESE CONDITIONS ARE NOT SET THERE 
WILL BE AN ERROR AT THIS POINT, 



IB SHIFT 


STUCK 


LOW/HIGH 


E15,E19,E2 


|B DONE 


STUCK 


HIGH 


E15 


jTO RX01 


STUCK 


LOW/HIGH 


E15 


{LOAD 


STUCK 


HIGH 


E17,E18 


jSELECT 00 


STUCK 


HIGH 


E17,E18 


|SELECT 02 


STUCK 


LOW 


E17,E18,E34 


J IN 


STUCK 


LOW 


E17,E21 


>CMD 


STUCK 


LOW/HIGH 


E21 


|BUS D15 


STUCK 


HIGH 


E40 


JRX INIT 


STUCK 


HIGH 


E32 


jBUS D00 -> D03 


STUCK 


HIGH 


E41,E7 


|DATA 


STUCK 


LOW 


Elb,Ell 


1 ••----«•••• 


INCORRECT SHIFT OUTPUTS 


E5 


j ....•..••• 


CAN'T 


SELECT 'B' INPUTS 


El 




CAN'T 


PESET 


E3 


|B INIT 


STUCK 


LOW 


E34,EB 


»RX BUSY 


STUCK 


LOW 


E34,E22,E19 


|B DONE 


STUCK 


LOW 


E19 


jBUS D05 


STUCK 


LOW 


E4 


|B SER DATA 


STUCK 


LOW/HIGH 


E9 


|INT ENB(l) H 


STUCK 


HIGH 


E37 



•) 



I IF THE FAULT CANNOT BE FOu^D ON THE UNIBUS INTERFACE MODULE 
jAND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 
|M7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/*RITE 
jMODULE M7727, 

NOTEj ONLY APPROX, 30% OK THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS? ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 



M7727 (READ/WRITE CONTROL) 

SIGNAL NAME 
SEL WT PPOT STUC 



POSSIBLE CHIPS 



E4,E6,E15 



/!\s/i\#/.\#/j\*/:\#/|\*/;\»/:\#/«\»/s\*/s\*/!\*/:\»/!\*/!\*/|\»/S\*/!\* 

/i\*/i\*/i\»/i\<*/i\*/t\*/t\*/i\*/t\*/i\*/i\*/i\*/\\*/i\*/;\*/i\*/i\*/i\* 



754 002160 000542 

755 002162 004737 

756 002166 005723 



BP REBEGIN 
MORETESTS! JSR PC , LOCKUP 
T0NOTHEPE: TST (P3)+ 



jADJUST R3 FOR NEXT TEST ADDRESS 
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757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 



810 
811 
812 



002170 
002176 
002204 
002210 
002214 
002222 
002230 
002234 
002242 
002250 
002254 
002262 
002270 



016337 
013737 
012706 
000173 
002166 
003262 

004010 

004140 
004272 
004750 
005462 
005750 
006062 



0O2214 006556 

006556 002532 

001200 

002214 

002620 002740 TESTS! 

003420 003564 

004142 

004226 004216 

004416 004610 

005216 

005506 005672 

006016 006050 

002274 



FIRSTTEST: MOV TESTS(R3)# 
MOV PCSCOPE,FAST 
MOV #STACK,SP 
JMP eTESTS(R3) 
T0NOTHERE, Tl, T2 



PCSCOPE 



| EQUIVALENT TO " SCOPE " 

jSAVE THE FIRST ADDRESS OF THE TEST 



T3, T4, T5, T6, T7 
T10# TH, T12» T13, T14, T15, Tl6, Tl 7 
T20, T21, T22i T23, T24, T25, T26, NQMQRETfcSTS 



} TEST 1 - RXCS TEST PART 1 / INTERRUPT TEST PART I 

I TEST 2 - INTERRUPT TEST PART II / VECTOR ADDRESS VERIFICATION 

; # TEST 3 - INTERRUPT TEST PART III / PRIORITY LEVEL VERIFICATION PART 1 

I # TEST 4 - INTEPPUPT TEST PART IV / PRIORITY VERIFICATION PART li 

? TEST 5 - INIT [PROGRAMMED] / RST 

| TEST 6 - FILL BUFFER TRANSFER LENGTH VERIFICATION 

; TEST 7 - EMPTY BUFFER TRANSFER LENGTH AND CONTENT VERIFICATION PART I 

I TEST 10 - EMPTY BUFFER TRANSFER LENGTH AND CONTENT VERIFICATION PART II 

I TEST 11 - FILL/EMPTY BUFFER ALL 0'S 

| TEST 12 - FILL/EMPTY BUFFER ALL l'S 

j TEST 13 - DRIVE READY VERIFICATION FOR SELECTED DRIVES 

t TEST 14 - ERROR FLAG AND B «• CODE VERIFICATION PART I 

> TEST 15 - ERROR FLAG AND B - CODE VERIFICATION PART II 
I /DELETED DATA BIT SETS 

?TEST 16 - ERROR FLAG AND B - CODE VERIFICATION PART III 
j /DELETED DATA BIT CLEARS 

;TEST 17 - ILLEGAL TRACK ERROR AND B - CODE VERIFICATION 

iTEST 20 - SEEK VERIFICATION VIA READ FUNCTION 

|TEST 21 - WRITE TEST 

|TEST 22 - INITIALIZE IMPLIED READ 

|TEST 23 - READ TEST 

jTEST 24 «■ DATA TRANSFER & VERIFICATION 
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813 

814 
815 
816 
817 
818 
819 
820 



PRETEST • INITIALIZE [KEY] PART I 

>TEST 25 « DATA TRANSFER & VERIFICATION VIA DELETED DATA MODE 

;TEST 26 - HEAD "HOME" TEST 

jTHERE ARE NO MORE TESTS 

j # NOTES ON PROCESSORS WITHOUT HARDWARE PROCESSOR STATUS WORDS (PSW) 
j THESE TEST WILL NOT BE RUN, 
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mm 



821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 



002274 
002302 
002306 
002314 
002316 
002324 
002330 
002332 
002336 
002342 
002350 
002352 
002356 
002362 
002366 
002372 
002374 
O02 376 
002404 
002406 
002412 
002416 
002424 
002430 
002432 
002434 
002440 
002442 
002446 
002450 
002452 
002454 
002456 
002460 
002462 

002466 
002474 
002500 
002504 
002510 
002512 
002514 

002516 
002522 



042777 
005037 
032737 
001403 
012737 
005737 
001002 
104400 
0052 37 
022737 
001002 
005037 
104400 
104400 
005237 
102775 
104405 
032777 
001413 
104400 
104400 
013737 
004537 
000000 
000000 
005237 
001375 
013705 
001405 
000005 
004715 
000240 
000240 
000240 
000137 

042737 
013703 
042703 
020327 
103002 
006303 
000625 

104400 
000137 



JPR1MT AN kUb OF PASS INDICATOR 

j C - RX11/PX01 TEST PASS OK 

j D - RX11/RX01 AND DRIVE TESTING OK 

j - - AN ERROR OCCURRED (DURING C OR D) 

J NOTE: IF BIT 8 OF UNITSEL IS A 1 

• THEN AN ERROR HAS OCCURRED FOR THIS PASS 



000100 176704 

00b756 

000400 012724 

000055 002534 
002526 

016120 
002526 
000110 002526 

002526 
002534 
006470 
002530 



040000 176612 

016120 

006725 

002530 002430 

015600 



006756 
000042 



002466 

000400 
001212 
177740 
000027 



002536 
001232 



NOMORETESTS: BIC 

CLH HANGER 

BIT *BIT8, UNITSEL 

BEQ IS 

MOV »'«, MX 
ISt TST CCOUNT 

BNE 3S 

TYPE, MCRLF 
3S: INC CCOUNT 

CMP #72,, CCOUNT 

BNE 4$ 

CLR CCOUNT 
48t TYPE, MX 

TYPE ,MABELL 
2$: INC PASS 

BVS 2$ 

CKSWR 

BIT #SW14,0SWR 

BEQ 6$ 

TYPE , MCRLF 

TYPE ,MPASS 

MOV PASS, 5$ 

JSP R5,SGLDEC 
5S: OPEN 

HALT 
bS: INC HANGER 

BNE 6$ 

MOV @#42,R5 

BEQ HERE 

RESET 
LOGICAL: JSP PC,(R5) 

NOP 

NOP 

NOP 
HERE: JMP REBEGIN 

PEBEGINJ BIC #BIT8, UNITSEL 
MOV DTESTP, R3 
BIC #177740, R3 
CMP R3,#27 
BHIS 1$ 
ASL R3 
BR FIRSTTEST 



*B1T6,3RXCS jCLEAR 'IE' BIT BEFORE NEXT PASS 
j»C" OR »0« MEANS ERRORLESS PASS, 
; h - " MEANS UN-ERRORLESS PASS 



I AC SW 14 s 1 TO HALT AT END OF PASS 



JWAIT FOR EOP INDICATOR TO BE PRINTED 
> ACT 11 END OF PASS HOOKS 



;CLEAR HARD ERROR INDICATOR 
f R3 CONTAINS TEST # TO 26 



1$: 



TYPE #MILTST 
JMP SA200 
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DZRXBE.PH PRETEST - INITIALIZE [KEY] PART I 

877 002526 000000 CCOUNTl 

878 002530 000000 PASSl 

879 002532 000000 FAST: 
880 

881 002534 000103 MX: .ASCIZ «C" 

883 002536 046111 042514 040507 MILTST: .ASCIZ "ILLEGAL TEST"<15><1 2> 

884 002544 020114 042524 052123 

885 002552 005015 000 
886 

887 002556 .EVEN 



) 
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DZRXBE.PH PRETEST - INITIALIZE [Kfctf) PART J 



889 








890 








891 


002556 


JCM405 




892 


002560 


032 7 77 


002000 


893 


002566 


001 401 




894 


002570 


W00000 




895 








896 








897 








898 


002572 


032777 


01 0000 


899 


002600 


001403 




900 


002602 


062716 


000002 


901 


002606 


000207 




902 


002610 


042737 


04010A 


903 


002616 


000207 





f DATA SW 10 = 1 TO HALT AT END OP" TEST 

LOCKUP: CKSWR 
176430 RII #SW10,PSWP 

BEQ IS 
HALT 

; DATA SM 12 = 1 TO LOCK SCOPE LOOP ON TEST OK OR NOT 

176416 IS: BIT *SWl2r0SWR ,is LOOP ON TEST SWITCH SET 

BEQ 2S j IF NOT SET GO ON TO NEAT TEST 

ADD *2/»SP j IF SET RETURN TO KIHSTTEST 
RTS PC 

012724 2$: BIC * 40100, UNITSKL {CLEAR UNIT USED HITS 
RTS PC 
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DZRXBE.P11 TEST 1 - RXCS TEST PART I / INTERRUPT TEST PART I 



904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 

917 002620 

918 002624 

919 002630 

920 002634 

921 002636 
922 

923 

924 

925 002640 

926 



005H77 
012700 
017701 
020001 
001401 



176362 
000040 
176352 



.SBTTL TEST 1 - RXCS TEST PART I / INTERRUPT TEST PART I 

I THE PURPOSE OF THIS TEST IS TO VERIFY THAT WRITING ALL RXCS WRITABLE BITS TO A 
J ARE [NOT] WRITTEN TO A 1 

;THE PROGRAM WRITES THE RXCS a 

;NO INTERRUPTS SHOULD OCCUR 

jTHE RXCS SHOULD REMAIN UNCHANGED = 40 CDONE) 

jTHE RXDB SHOULD = 

Til CLR § RXCS ; WRITING RXCS TO 0, ALSO WRITES RXDB s 

MOV #40, R0 
MOV RXCS, Rl 
CMP R0, PI 
BEQ IS 

; (R0) a 40 j (Rl) s ACTUAL RXCS > (R2) = N/A 

ERROR j RXCS NOT = 40 (DONE) 



957 
958 

959 



j/»\:/*\:/*\;/#\j/»\i/#\:/#\!/*\!/#\s/#\:/#\j/#\:/#\./*Vj/#\j/ # \j/»\s/ # \j 
j/*\i/*\i/*\i/#\!/»V:/#\:/#\i/*\j/*\}/*\5/#\}/#\j/#\j/»\./#\i/*\,/#\{/#\, 

JTHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

JTHIS ERROR REPOPT WAS GENERATED, THE INFORMATION SHOWN IS 

>BASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

;AREAS TO CHECK FOR THE RELEVANT FAULT/S, 

J 

; IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

jANALYZE THE FOLLOWING AREA/S: 
J 
JM7846 (UNI8US INTERFACE) 



; SIGNAL NAME 
1 

jBUS D06 

jB TRANSFER REQUEST 

;RX INIT 

>BUS D15 

jD00(l) H 

JRX RUN 

jBUS D00 

1 

)/l\#/|\#/|\»/ 

j /:\*/;\#/:\*/s\* 

002642 104412 



REASON 

STUCK HIGH 

CAN'T SEND DATA 

STUCK HIGH 

STUCK LOw 

STUCK LOw 

STUCK HIGH 

STUCK LOW 

STUCK LOW 



POSSIBLE CHIPS 



E4 



E41 

Elb 

F3b,Ell 

E14 

E2 2 

E18 

E7 



/j\*/:\*/:\*/j\*/:\*/:\*/i\*/;\*/.\#/s\*/.\*/.\#/.\*/ : \# 
/t\*/!\»/t\«/!\*/:\»/:\*/i\*/t\»/:\«/!\*/s\«/i\*/:\»/i\* 
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960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 

972 002644 005000 

973 0102646 017701 17633b 

974 002652 020100 

975 002654 001401 
976 

977 

978 

979 002656 1W4000 

980 



i //////////////////////////////////////////////////////////////////////// /////// 

; FXD8 AT "DONE" 
J76--3210 / 



SFL 

DPIVE DD 

ROi 



WRITE INIT PAR 
PROTECT [DONE] CKC 

(N/A) 



CLR R0 

MOV 3 RXDB, Rl 

CMP Rl, R0 

BEQ 3S 

j (P0) = j (Rl) = ACTUAL RXDB ; (R2) = N/A 

ERROR . RXDB NOT s 



;/«\:/»Ni/»\s/*\i/*\i/»\s/#\!/#\i/«\t/«Vi/«\t/*\i/»\:/*\t/«\i/#\i/»\i/#\t 
j/#\»/#\i/*\i/»\i /*Vi/*\i/«\|/«\(/*\i/»\|/»\i/»\|/«\:/*\!/»\i/»\|/«\{/#\| 
j/*\i/*\i/«\:/#\i/#\s/*\i/*\j/*\j/«\{/#\j/*\s/»\j/»\|/#\j/#\ l /#\|/#\j/#\{ 

JTHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

>THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

jAREAS TO CHECK FOR THE RELEVANT FAULT/S, 

» 

»1F THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

jANALYZE THE FOLLOWING AREA/Sl 
t 

JM7846 (UNIBUS INTERFACE) 
J 

> SIGNAL NAME REASON 

J 
1 
\ 



JBUS D01 «> D03 
jLOAD 





IN 




RX BUSY 


OUT 




BUS 


D00/D02/D03 


BUS 


-> RXCS 


REG 


SELECT 


B DONE 



STUCK HIGH 

STUCK LOW 

NO SACK 

CLOCK STUCK HIGH/LOW 

STUCK LOW/HIGH 

STUCK HIGH 

STUCK LOW 

STUCK HIGH 

STUCK LOW 

STUCK HIGH 

STUCK HIGH 

# B2* INPUT STUCK HIGH 



POSSIBLE CHIPS 

E7 

E17,E18 

E12 

E12 

E21 

E22 

E22 

£4 

E40 

E23 

E19 

El 



/i\#/j\#/j\»/i\*/s\*/:\*/5\*/i\»/!V*/j\#/|\*/:\#/i\#/|\#/i\»/|\#/:\#/|\# 
/ \\* t \\* / \\* / \\* / \\* / \\* / \\* / \\* / x \* t x\* / \\* t \\* t \\* t \\* / \\* / \\* t \\* t \\* 

/|\*/|\«/l\»/|\*/l\*/l\*/l\«/lN«/l\»/]\»/l\*/l\#/|\«/|\#/i\*/|\»/|\tt/i\* 



1015 002660 104412 



SUBSCOPE 
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» RXCS TEST PART I / INTERRUPT TEST PART I 



1016 








1017 








1018 


002662 


013702 


001204 


1019 


002666 


010246 




1020 








1021 


002670 


012722 


002730 


1022 


002674 


012722 


000340 


1023 


002700 


012602 




1024 








1025 


002702 


005046 




1026 


002704 


012746 


002712 


1027 


002710 


000002 




1028 


002712 


000240 




1029 


002714 


000240 




1030 


002716 


012746 


000340 


1031 


002722 


012746 


002732 


1032 


002726 


000002 




1033 








1034 








1035 








1036 








1037 








1038 








1039 


002730 


104000 




1040 









1064 
1065 



; INTERRUPT TEST PART I j NO INTERRUPTS SHOULD OCCUR 



MOV 


KRXVEC, P2 


MOV 


R2,«(SP) 


MOV 


S4S, (R2)+ 


MOV 


8PR7, (R2)+ 


MOV 


(SP)+,R2 


CLR 


-(SP) 


MOV 


#2S,-(5P) 


RTI 




NOP 




NOP 




MOV 


»PR7,-(SP) 


MOV 


#5$,«(SP) 


RTI 





jSAVE INTERRUPT VECTOR FOR 

jERROR REPORT 

j RX01 VECTOR ADDRESS 

jRESTORE INTERRUPT VECTOR FOR 

;ERROP REPORT 

j PDP PRIORITY <0N> 



j RESET PDP PRIORITY <7> OFF 



') 



; RETURN TO HERE WITH PDP PRIORITY = 7 IF AN RX01 INTERRUPT 



j (R0) a N/A > (PI) = N/A } (R2) 
48! ERROR 



j UNEXPECTED RX01 INTERRUPT 



JTHE FOLLOWING Is A PRESENTATION OF POSSIBLE REASONS AS TO wriY 
?THIS ERROR REPORT WAS GENERATED. THE INFORMATION SHOWN IS 
, BASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
>AREAS TO CHECK FOR THE RELEVANT FAULT/S, 

JlF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
jANALYZE THE FOLLOWING AREA/S! 

I 

JM7846 (UNTBUS INTERFACE) 

} SIGNAL NAME REASON POSSIBLE CHIPS 

jINT ENB STUCK HIGH E3b 



>/: Wi 

002732 
002734 



\»/i\«/i\«/i\»/i\«/i\«/i\#/i\*/i\*/t\tt/i\»/:\*/t\«/:\«/i\«/:\*/!\* 



000004 
000137 



SCOPE 
JMP CEXIT 



jEND OF TEST 1 
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1066 








1067 








1068 








1069 








1070 








1071 








1072 


002740 


013702 


001204 


1073 


002744 


01024b 




1074 








1075 


002746 


012722 


003016 


1076 


002752 


012722 


000340 


1077 


002756 


012602 




1078 








1079 


002760 


005046 




1080 


002762 


012746 


002770 


1081 


002766 


000002 




1082 


002770 


052777 


000100 


1083 


00277b 


000240 




1084 









.SBTTL TEST 2 - INTERRUPT TEST PART II / VECTOR ADDRESS VERIFICATION 

; THE PURPOSE OF THIS TEST IS TO VERIFY THAT WRITING THE RXCS INTERRUPT ENABLE BIT 
; (BIT 6) = 1 DOES INDEED WRITE IT TO A 1, THEREFORE BECAUSE DONE = 1 
: AN INTERRUPT SHOULO OCCUR (THE PDP PRIORITY IS ) 



MOV KRXVEC, R2 
MOV R2r-(SP) 

MOV #1$, (R2)+ 
MOV *PR7, (R2)+ 
MOV (SP)+,R2 

CLR -C5P) 

MOV *6$ f «CSP) 

RTI 

BIS #BIT6, 9 RXCS 

NOP 



{SAVE INTERRUPT VECTOR FOR 

jERROR REPORT 

j RX01 VECTOR ADDRESS 

jRESTORE INTERRUPT VECTOR FOR 

jERROR REPORT 

; PDP PRIORITY <0N> 

J SET RX01 INTERRUPT ENABLE 



i y»\: /^M /»\i /»\x /*\: /»\: /*\ : /*\j /*\: /*\j /#\i /*\ i /#\t /#\i /*\: /»\i /#\i /^Vs 

>THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
jTHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS. AND SHOULD PROVIDE LOGICAL 
fAREAS TO CHECK FOR THE RELEVANT FAULT/S, 

I if THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
jANALYZE THE FOLLOWING AREA/SI 

J 

|M7846 (UNIBUS INTERFACE) 

! SIGNAL NAME REASON POSSIBLE CHIPS 

j - SACK FLOP LOCKED CLEAR E13,E31,E36 

, BBSY FLOP CLOCK LOCKED HIGH El 3 , E3 1 , E36 , E33 

iBUS REQUEST STUCK HIGH E31 

iBUS INTR STUCK HIGH E3 1 , E35 , E8 , E38 

, .......... SACK FLOP CLOCK LOCKED HIGH E3 1 , E2 1 , E9 , El 2 

, ••....••••i SACK FLOP CLOCK LOCKED LOW E31,E21 

, ...•..•••• BBSY FLOP CLOCK LOCKED LOW E31,E33,E9 

|BUS D02/D04/D05 STUCK HIGH E38 

,BUS SACK STUCK HIGH E32 

,BG OUT STUCK HIGH E32,E25,E28 

jBUS REQUEST STUCK LOW E39 

, ......•.•• JUMPER (Nl) NOT IN .......... 

|BUS D07 STUCK HIGH E35,E8 

, .......... GRANT FLOP CAN'T BE PRESET E25rE9 f E28 

}B SER DATA STUCK LOW E9 

, ....•••••. GRANT FLOP »Q* OUTPUT E28 

, STUCK HIGH 
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DZRXBE.PU TEST 2 - INTERRUPT TEST PART II / VECTOR ADDRESS VERIFICATION 



1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 



i/i\«/i\*/i\#/i\«/i\*/i\»/i\#/i\»/i\»/i\*/i\#/i\*/i\*/i\#/iS*/:N*/i\*/i\» 

; RESET pDp PRIORITY <7> OFF 



003000 000240 

003002 012746 000340 

003906 012746 003014 

003012 000002 



NOP 

MOV »PR7,-(SP) 

MOV »7$,-(5P) 

RTI 



003014 104000 



> (R0) = N/A > (Rl) a N/A J (R2) 
7S! ERROR 



N/A 



j NO RX01 INTERRUPT OCCURRED 



>/»\:/*\j/#\i/*\i/#\:/#\|/#\j/#\j/*\s/»\j/*\:/*\}/*\i/«\j/*\j/#\i/*\i/*\: 
|/#\i/*\:/#\s/»\i/*\:/*v»/*\j /*\i/#\|/*\i/*\j/»\i/*\i/#\»/#\i/*\|/»\i/*\i 

j THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

jTHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

jBASED ON FAULT INSERTION pESULTS, AND SHOULD PROVIDE LOGICAL 

y AREAS TO CHECK FOP THE RELEVANT FAULT/5, 

> 

MF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

^ANALYZE THF FOLLOWING APFA/Sl 

; 

JM7R46 (UNIBUS INTERFACE) 

J SIGNAL NAME REASON POSSIBLE CHIPS 

I 

, -- BBSY FLOP LOCKED IN 'RESET' E40,E39,E31 

, -- -»- INT ENB FLOP CLOCK LOCKED HIGH £40 

j --- IMT E^B FLOP CLOCK LOCKED LOW E40,E37 

jRX INIT STUCK HIGH E3b 

;BUS REQUEST STUCK HIGH E3t>,E39,E32 

, ........... LOCKED IN INTERRUPT STATE E36/E39 

jBG OUT STUCK HIGH E33 

|INT ENB(l) H STUCK LOw E37,E1,E4 

, .......... GRANT FLOP '0' OUTPUT E28 

, STUCK LOW 

jTPANSFER REQUEST STUCK LOW E4 

jBUS INTR STUCK LOW E38 

! 

j/:\w:\*/|\#/i\#/:\»/:\Wr\*/:\»/:\W:\*/:\*/:\»/j\*/i\*/:\»/i\*/:\*/i\# 

j/l\»/l\*/;\*/l\*/l\«/t\*/i\*/i\*/l\*/l\*/l\«/l\*/t\*/l\*/l\*/i\*/l\*/l\* 

j/i\*/:\*/i\*/j\*/i\*/jV*/:\*/:\»/:\*/:\*/:\*/:\*/i\*/i\*/:\*/:\*/:\*/:\* 



1167 








1168 








1169 








1170 


003016 


005737 


003032 


1171 








1172 








1173 








1174 


003022 


001004 




1175 


003024 


105237 


003032 


1176 








1177 


00303*) 


000402 





J RETURN TO HERE WITH THE PDP PRIORI T* = 7 IF AN RX»1 INTERRUPT 



1ST CATEPP 



BNE 
INCB 



DEATH 
CATERR 



JDID MORE THAN ONE INTERRUPT 
jOCCUR DUE TO BOTH 'DONE' £, 'IE' 
jBITS SET BUT 'RQST INTR' FLOP 
jNEVER GETTING CLEARED? 
JBPANCH IF YES 

OTHERWISE, SET FLAG TO INDICATE 
jONE INTERRUPT OCCURRED & GO ON 



MAINDEC-11-DZRXB-E 
DZRXBE.PU TEST 2 



117 8 


003032 


000000 




1179 








1180 








1181 








1182 








1183 








1184 


003034 


000000 




1185 








1186 








1187 








1188 








1189 


003036 


104412 




1190 


003040 


005037 


003032 


1191 








1192 








1193 








1194 








1195 


003044 


Ml 2700 


000140 


1196 


003050 


020077 


176132 


1197 


003054 


001403 




1198 


003056 


U17701 


176124 


1199 








1200 








1201 








1202 


003062 


104000 




1203 
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- INTERRUPT TEST RApT II / VECTOR ADDRESS VERIFICATION 



CATERF: .WORD 



DEATHl HALT 



0K2GO: SUBSCOpE 

CLR CATERR 



jTHIS IS THE INTERRUPT INDICATOR, 
J 1ST TIME THRU THIS TEST THE IN- 
jDICATOR SHOULD ALwAYS BE ZERO; 
;IF NON-ZERO A MULTIPLE OF 
I INTERRUPTS HAS OCCURRED DUE TO 
jTHE AFOREMENTIONED CONDITION 
»N0 SENSE GOING ON - YOU ARE 
jLOCKED IN THE INTERRUPT STATE1 
;PRESS THE 'COM' SWlTH (IF 
jPRESENT) TO GO ON AT YOUR OWN 
>RISK 

^EVERYTHING APPEARS TO BE OK 
>CLEAR INTERRUPT INDICATOR FOR 
jNEXT POSSIBLE PASS THRU THIS TEST 



; THE PXCS SHOULD s 140 (INTERRUPT ENABLE+DONE) 

MOV »140, R0 
CMP R0, d RXCS 
BEQ 2$ 
MOV 9 RXCS, Rl 

; (R0) = 140 J (Rl) = ACTUAL PXCS j (R2) = N/A 

ERROR J THE RXCS NOT 



i/#\i/*\:/#\i/#\i/»\i/*\i/#\|/*\:/*\:/»\i/*Ni/#\i/»\i/»\|/*V|/»Ni/»\»/*Ni 

i/#\j/»\:/»\i/*\i/»\:/*\j/*\j/»\s/*\:/#vi/*\:/*\i/*\i/#\j/*\!/*\j/*\t/#\j 
i/*\:/*\:/*\j/*Si/*\i/*\i/*Vi/*N!/*\j/* , m/*vj/*^i/*\i/*\|/*\i/* n 'J/*^j/*Ni 

jthe following is a presentation of possible reasons as to why 

»THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

>AREAS TO CHECK FOR THE RELEVANT FAULT/S, 

1 

;IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

jANALYZE THE FOLLOWING AREA/Sl 



; 
} 

JBUS 
;BUS 
J 

|/:\ 
>/i\ 
>/j\ 



1228 
1229 
1230 
1231 
1232 
1233 



846 (UNIBUS INTERFACE) 
SIGNAL NAME 



D07 
D06 



STUCK HIGH 
STUCK HIGH 



POSSIBLE CHIPS 



E4 
El 



»/:\»/i\»/j\#/j\*/i\*/!\*/iS*/j\»/i\»/:\*/j\*/i\*/i\*/|V«/iN»/i\*/!\* 
*/:\*/i\»/i\*/j\*/i\»/i\*/i\*/!\*/i\*/|V*/i\*/:\*/iV*/i\*/»\*/:\*/iV« 

*/l\#/|\*/|\#/l \*/l Wl W|\*/| W|\#/|\»/| W|\*/|S#/|\#/|\#/| \»/|\» 



003064 104412 



1 TEST 2 - CONT'D 

j THE PURPOSE OF THIS TEST IS TO VERIFY THAT BIT 6 OF THE RXCS (INTERRUPT ENABLE) 
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DZRX6E.P11 TEST 2 - INTERRUPT TEST PART II / VECTOR ADDRESS VERIFICATION 

; CAN BE CLEARED AFTER IT WAS KNOWN TO BE SET 



1234 








1235 








1236 


003066 


013702 


001204 


1237 


003072 


010246 




1238 








1239 


003074 


012722 


003164 


1240 


003100 


012722 


000340 


1241 


003104 


012602 




1242 








1243 


003106 


042777 


000100 


1244 








1245 








1246 








1247 


003114 


012700 


000040 


1248 


003120 


020077 


176062 


1249 


003124 


001403 




1250 


003126 


017701 


176054 


1251 








1252 








1253 








1254 


003132 


104000 




1255 


003134 


104412 




1256 








125 7 








1258 


003136 


005046 




1259 


003140 


012746 


00314b 


1260 


003144 


000002 




1261 


00314b 


000240 




1262 


003150 


000240 




1263 


003152 


012746 


000340 


1264 


00315b 


012746 


003166 


1265 


003162 


000(302 




1266 








1267 








1268 








1269 








1270 








1271 








1272 


003164 


104000 




1273 


003166 


104412 




12 74 








1275 








1276 








1277 


00317fc? 


013702 


001204 


1278 


0031 74 


010246 




1279 








1280 


003176 


012722 


003246 


1281 


003202 


012722 


000340 


1282 


003206 


012602 




1283 








1284 


003210 


005046 




1285 


003212 


B12M6 


003220 


1286 


003216 


000002 




1287 


003220 


052777 


00P10P 


1288 


003226 


000240 




1289 


003230 


0fo024rf 





MOV KRXVEC, P2 
MOV R2,-(SP) 

MOV 84$, (R2) + 

MOV »PP7, (R2)+ 
MOV (SP)+,P2 

BIC »BIT6, » RXCS 

; THE RXCS SHOULD = 40 (DONE) 

MOV #40, P0 

CMP R0, p RXCS 

BEQ 3$ 

MOV 9 RXCS, Rl 



»SAVE INTERRUPT VECTOR FOR 

> ERROR REPORT 

1 RXH VECTOR ADDRESS 

jRESTORE INTERRUPT VECTOR FOR 

JERROR REPORT 

; CLEAR THE RXll INTERRUPT ENABLE BIT 



) 



J CR0) x 40 > (Pi) = ACTUAL RXCS j CR2) = N/A 

J RXCS NOT s 40 



ERROR 
3$ : SUBSCOPE 
; NO PX11 INTERRUPTS SHOULD OCCUR IYLT] 

CLP -(SP) 
MOV #10$, -(SP) 
RTI 
10S! NOP 
NOP 

MOV »PR7,-(SP) 
MOV *H$,-(SP) 
RTI 



POP PRIORITY <ON> 



; PDP PRIOPLITY <OFF> 7 



; RETURN TO HEPE WITH THE PDP PRIORITY a 7 IF AN UNEXPECTED RX11 INTERRUPT 
; WHILE CLEARING THE RXU INTERRUPT ENABLE BIT 6 



> (R0) s N/A ', (PI) = N/A J (P2) a N/A 

4S! ERROR 
US! SUBSCOPE 

; A" RXU INTERRUPT SHOULD OCCUR [NOW] 

MOV KRXVEC, R2 
MOV P2,-(SP) 

MOV U5S, CR2)+ 
MOV *PR7, (R2)+ 
MOV (SP)*,R2 

CLP -(SP) 
MOV M2S,-(SP) 
RTI 
12s: BIS sRITb, » RXCS 
NOP 
NOP 



1 UNEXPECTED RXU INTERRUPT 



JSAVE INTERRUPT VECTOR FOR 

;ERROR REPORT 

J RXU VECTOR ADDRESS 

;RESTORE INTERRUPT VECTOR FOR 

JERROR REPORT 

; PDP PRIORITY <ON> 



SET RXU INTERRUPT ENABLE BIT 
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1290 003232 012746 000340 

1291 H03236 012746 003244 

1292 003242 000002 
1293 

1294 

1295 

1296 003244 104000 

1297 

1298 

1299 

1300 003246 000004 

1301 003250 
1302 
1303 003256 



42777 000100 175730 
00137 004246 



MOV *PR7,-(SP) 
MOV »13$,-(SP) 
PT1 

; (R0) = N/A > (Rl) s N/A ; (P2) = N/A 

13$: ERROR ; no RXll INTERRUPT OCCURRED 

J RETURN TO HEPE WITH THE PDP PRIORITY r 7 IF AN RX01 INTERRUPT 

5$: 



SCOPE 

BIC #BIT6, 9 RXCS 



JMP CEXIT 



J CLEAR THE RXll INTERRUPT ENABLE 
;END OF TEST 2 
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PRIORITY LEVEL VERIFICATION PART I 



1304 








1305 








1306 








1307 








1308 








130$ 








131U 








1311 








1312 








1313 








1314 








1315 








1316 


003262 


005001 




1317 








1318 








1319 


003264 


013702 


001204 


1320 


0032 70 


010246 




1321 








1322 


003272 


012722 


003404 


1323 


003276 


012722 


000340 


1324 


003302 


012602 




1325 








1326 


0033*14 


013746 


000004 


1327 


003310 


012737 


003326 000004 


1328 


003316 


012737 


000200 177776 


1329 


003324 


000404 




1330 


003326 


022626 




1331 


003330 


012637 


000004 


1332 


003334 


000427 




1333 


00333b 


012637 


000004 


1334 


003342 


004737 


006200 


1335 








1336 








1337 


0O3346 


010046 




1338 


003350 


012746 


003356 


1339 


003354 


000002 




1340 


003356 






1341 


003356 


052777 


000100 175622 


1342 


003 36 4 


000240 




1343 


003366 


0002 40 




1344 


003370 


013746 


000340 


1345 


003374 


012746 


003402 


1346 


003 40W 


000002 




1347 


003402 






1348 








1349 








1350 








1351 


003402 


104000 




1352 








1353 








1354 








1355 








1356 








1357 








1358 


003404 


000004 




1359 


003406 


042777 


000100 17 557 2 



.SBTTL TEST 3 - INTERRUPT TEST PART III / PRIORITY LEVEL VERIFICATION PARI I 

J THE PURPOSE OF THIS TEST IS TO VERIFY THE PRIORITY OF THE RX11 INTERRUPT REQUEST LINE 

{ THE PROGRAM SETS THE POP PRIORITY TO 1 LESS THAN THE DEVICE LEVEL 

; (DEVICE LEVEL SPECIFIED BY CONTENTS OF LOCATION 'BRLEV:' -- NORMALLY 5) 

; AN PX01 INTERRUPT SHOULD OCCUR 

j IF NO INTERRUPT OCCURS THEN THE PRIORITY LEVEL OF THE RXl 1 IS INOTJ = NORMAL 

{DEVICE LEVEL OF 5 Op THE DEVICE LEVEL AS SPECIFIED BY THE CONTENTS OF 

{LOCATION 'BRLEV:* WHICH MAY HAVE BEEN CHANGED BY THE USER BEFORE PROGRAM 

; EXECUTION, BUT MAYBE SOME VALUE LESS THAN THE CONTENTS OF LOCATION 'BRLEVj', 

j NOTE! IF THERE IS NO HARDWARE "PSW" THIS TEST WILL BE SKIPPED, 



T35 



CLP 



PI 



MOV KRXVEC, R2 
MOV R2,-(SP) 

MOV US, CP2) + 
MOV 8PR7, (R2) + 
MOV (5P)+,R2 



MOV 


4,-(SP) 


MOV 


»2S,4 


MOV 


#PR4,PSW 


BP 


3$ 


CMP 


(SP)+,(SP) 


MOV 


(SP)+,4 


BR 


4$ 


MOV 


(SP)+,4 


JSR 


PCCPUPRI 


MOV 


P0,-(SP) 


MOV 


*64S,-(SP) 


RT1 




BIS 


8BIT6, RXCS 


NOP 




NOP 




MOV 


PR7,-(SP) 


MOV 


#65S,-(SP) 


RTI 





{INDICATOR TO CPU PRIORITY 
{ROUTINE TO DROP CPU PRIORITY 
I TO 1 LESS THAN DEVICE LEVEL 

{SAVE INTERRUPT VECTOR FOR 

{ERROR REPORT 

{ RX01 VECTOR ADDRESS 

{RESTORE INTERRUPT VECTOR FOR 
{ERROR REPORT 

jSAVE 'BUSERR' TIMEOUT 'PC 
;SET TIMEOUT VECTOR 
{SET LEVEL TO 4 IF 'PSW' EXISTS 
,'GO TO RESET VECTOR 4 & DO TEST 
{CORRECT STACK FROM BUS TIMEOUT 
^RESTORE TIMEOUT VECTOR TO 'BUSERR' 
{NO HARDWARE PSW - SKIP THIS TEST 
{RESET TIMEOUT VECTOR TO 'BUSERR' 
JCALCULATE PRIORITY LEVEL OF CPU 
{BASED ON CURRENT DEVICE PRIORITY 
{LEVEL RESIDING IN LOC . 'BRLEV' 

{{PUT NEW PS ON STACK 

1 ;PUT NEW PC ON STACK 

; jPOp NEW PC AND PS 

J SET THE RX01 INTERRUPT fcNABLE 



j j PUT NEW PS ON STACK 
•;PUT NEW PC ON STACK 
; SPOP NEW PC AND PS 



; (R0) s M/A ; CRl) a N/A { (R2) s N/A 

ERROR {PRIORITY LEVEL IS NOT = CONTENTS 

{OF 'BRLEV;' (NORMALLY 5) BUT 
jMAYttE SOME VALUE LESS THAN THE 
{THE CURRENT CONTENTS OF 'BRLEV:' 

; RFTURN TO HERE WITH THE PDP PRIORITY = 7 IF AN RX01 INTERRUPT 

j CLEAR THE RXl 1 INTERRUPT ENABLE 



IS 



SCOPE, 

BIC #H1T6# 9 RXCS 
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11111 



1360 


003414 


000137 


004246 


1361 








1362 








1363 








1364 








1365 








1366 








1367 








1368 








1369 








1370 








1371 








1372 


003420 


035001 




1373 








1374 








1375 


003422 


013702 


001204 


1376 


003426 


010246 




1377 








1378 


00 3 4 30 


012722 


003546 


1379 


003434 


012722 


000340 


1380 


003440 


012602 




1381 








1382 


003442 


052701 


000200 


1383 








1384 








1385 


003446 


013746 


000004 


1386 


003452 


012737 


003470 000004 


1387 


003460 


012737 


000240 177776 


1388 


003466 


000404 




1389 


003470 


022626 




1390 


003472 


012637 


000004 


1391 


003476 


000430 




1392 


003500 


012637 


000004 


1393 


003504 


004737 


006200 


1394 








1395 








1396 








1397 


003510 


010046 




1398 


003512 


012746 


003520 


1399 


003516 


000002 




1400 


003520 






1401 


003520 


052777 


000100 175460 


1402 


003526 


000240 




1403 


003530 


000240 




1404 


003532 


013746 


000340 


1405 


003536 


012746 


003544 


1406 


003542 


000002 




1407 


003544 






1408 


003544 


000401 




1409 








1410 








1411 








1412 








1413 








1414 


003546 


104000 




1415 









4S: JMP CEXIT J END OF TEST J 

.SBTTL TEST 4 - INTERRUPT TEST PART IV / PRIORITY VERIFICATION pART II 

; THE PURPOSE OF THIS TEST IS TO VERIFY THE PRIORITY OF THE RX11 INTERRUPT REuUEST L-INE 

; THE PROGRAM SETS THE pDP PRIORITY s THE DEVICE LEVEL, (NORMALLY 5 OR THE CONTENTS OF L 

;NQ RXOl INTERRUPTS SHOULD OCCUR 

; IF AN INTERRUPT DOES OCCUR THEN THE PRIORITY LEVEL OF THE RXll IS [NOT] 

; = THE NORMAL DEVICE LEVEL OF 5, OP WHATEVER IS THE VALUE IN LOCATION 'BRLEV:' 

j BUT MAYBE SOME VALUE GREATER THAN THE CONTENTS OF LOC. 'BPLEVl' 

• NOTE: IF THERE IS NO HARDWARE "PSW" THIS TEST WILL BE SKIPPED, 



T4: 



CLR 



Rl 



MOV KRXVEC, R2 
MOV R2,-(SP) 

MOV tl$, CR23+ 
MOV *PR7, (R2)+ 
MOV (SP)+,R2 



BIS 


ftBIT7,Rl 


MOV 


4,-(SP) 


MOV 


#3$,4 


MOV 


»PR5,PSW 


BR 


4$ 


CMP 


(SF)+,(SP)+ 


MOV 


(SP)+,4 


BR 


5$ 


MOV 


(SP)+,4 


JSR 


PCCPUPRI 


MOV 


R0,-(SP) 


MOV 


#64$, -(SP) 


RTI 




BIS 


#BIT6,(8RXCS 


NOP 




NOP 




MOV 


PR7,~(SP) 


MOV 


#65$, -(SP) 


RTI 





65$: 



{INDICATOR TO CPU PRIORITY ROUTINE 
{TO DROP CPU PRIORITY 1 LEVEL 
{LESS THAN THE DEVICE LEVEL 

{SAVE INTERRUPT VECTOR FOR 

;£RROR REPORT 

{ RX01 VECTOR ADDRESS 

{RESTORE INTERRUPT VECTOR FOR 
{ERROR REPORT 

jSET INDICATOR TO CPU PRIORITY 
{ROUTINE TO SET CPU PRIORITY LEVEL 
jTO THE SAME LEVEL AS THE DEVICE 
{SAVE 'BUSERR' TIMEOUT 'PC 
{SET TIMEOUT VECTOR 
{SET LEVEL TO 5 IF 'PSW' EXISTS 
{GO ON TO RESET VECTOR & DO TEST 
{CORRECT STACK FROM BUS TIMEOUT 
{RESTORE TIMEOUT VECTOR TO 'BUSERR' 
;NO HARDWARE PSW - SKIP THIS TEST 
{RESET TIMEOUT VECTOR TO BUSERR 
{CALCULATE CPU PRIORITY LEVEL TO 
{BE THE SAME AS THE DEVICE LEVEL 
;I,E, - SAME AS CONTENTS OF LOC, 
{'BRLEV 

{ {PUT NEW PS ON STACK 

{ {PUT NEW PC ON STACK 

{{POP NEW PC AND PS 

{SET RXOl INTERRUPT ENABLE 



{{PUT NEW PS ON STACK 
{{PUT NEW PC ON STACK 
{{POP NEW PC AND PS 



BR 2S 



{ RETURN TO HERE WITH THE PDP PRIORITY a 7 IF AN RX01 INTERRUPT 
> (R0) a N/A { (PI) = N/A » (R2) = N/A 
1$J ERROR 



{PRIORITY LEVEL NOT ■ TO CONTENTS 
>OF LOCATION 'BRLEV:* (NORMALLY 5) 



MAINDEC 


-il-DZRXB-E 


MACY11 


DZRXBE S 


pii 


TEST 4 


- INTER 


1416 








1417 








1419 








1419 


003550 


000004 




1420 


003552 


042777 


000100 


1421 


003560 


000137 


004246 
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175426 



SCOPE 

BIC SBIT6, 

JMP CEXIT 



JBUT MAYBE SOMfc, VALUE GREATER THAN 
jTHE CONTENTS SPECIFIED BY LOC . 
1'BRLEV!' 

, CLEAR THE RX01 INTERRUPT ENABLE 
JEND OF TEST 4 



) 
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1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
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- INIT [PROGRAMMED] / PST 



.SBTTL TEST 5 - INIT [PROGRAMMED] / PST 

j THE PURPOSE OF THIS TEST IS TO VERIFY THAT SETTING THE RXCS BIT 14 
J CAUSES AN RX01 PROGRAMMED SUBSYSTEM INITIALIZE 

; THE RXCS SHOULD s 40 (DONE) 

; THE RXDB SHOULD = 4, OR 104, OR 204, OR 304 



003564 
003572 
003576 
003600 
003604 
003610 
003612 



052777 
004737 
000775 
012700 
017701 
020100 
001401 



040000 
006574 



000040 
175376 



175414 T5! 
1$: 



BIS #BIT14, S RXCS 

JSR PC, SDN 

BR IS 

MOV #40, R0 

MOV 6> RXCS, Rl 

CMP Rl, R0 

BEQ 2S 



? RX01 PROGRAMMED INITIALIZE 
j WAIT FOR ThE DONE BIT 



; PROGRAM EXPECTS RXCS 

> ACTUAL RXCS 



M 



003614 104000 



1 (R0) s 40 J (Rl) 
ERROR 



ACTUAL RXCS J (R2) = N/A 

j RXCS NOT 



j /*\:/*\i/»\:/#\i/»\:/»\»/*\i/*\j/#\x/*Ni/*\:^*\*/*N:^*\x/*\I' / *^*^* v !^* n * 
j/#\i/»\i/#\i/#\i/*\i/*\|/»\i/*Ni/*V»/*V|/*Ni'*\i'*W*\i'*Vi/*M/*W*\i 
; /*\: /#\i /*\t /*\« /*\i /*S: /#\t /*\t /*\i /«\$ /*\z /»\i /*\s /#\i /*\i /»\i /#\s /*\: 

J IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 

jAND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 

JM7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE. READ/WRITE 
jMODULE M7727, 

NOTE: ONLY APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS) ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 

M7727 (READ/WRITE CONTROL) 

SIGNAL NAME REASON 

.•••...... 'J' INPUT LOCKED LOW 



POSSIBLE CHIPS 
E16 






1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 



003616 104412 



25: SUBSCOPE 

%/tt/ut /mt/t /t//uttnti///tttt//ut/t///ntt/tt/u////t/t tut/ tu/t/ut/tttt 



SEL 
DRIVE 



WRITE INIT 
PROTECT [DONE] 



1 
PAR 
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1478 








1479 








I486) 








1481 








1462 








1483 








1464 








1485 


003620 


012700 


000204 


I486 


003624 


017702 


17536W 


1487 


003630 


010201 




1488 


003632 


042701 


000100 


1489 


003636 


105737 


012724 


1490 


003642 


100<U/% 




1491 


003644 


042701 


000200 


1492 


003650 


042700 


000200 


1493 


003654 


020100 




1494 


003656 


001401 




1495 








1496 








1497 








1498 








1499 








1500 


003660 


10400^ 




1501 









j RDY (N/A) / 

J 
I/////////////////////////////////////////////////////////////////////////////// 

; THE RXDB SHOULD ■ 4, 104, IF TESTING UNIT 1 

} OH 204, OR 304 IF TESTING UNIT (SEL, DRIVE RDY, BIT SET) 

MOV #204, P-0 
MOV PRXDB,R2 
MOV R2,R1 
BIC #BlTb,Rl 
TSTB UNITSEL 
BMI 3S 

BIC «BIT7,R1 
BIC *BIT7,R0 
3$; CMP PI, R0 
BEQ 4S 



{CLEAR DELETED DATA BIT 
{WAS UNIT SELECTED 



{UNIT WAS NOT SELECTED 
{CLEAR UNIT RDY BITS 



; (R0) = 4, OR 204 

; (Rl) = ACTUAL RXDB MINUS DELETED DATA BTTSb 

; (R2) a ACTUAL RXDB 



) RXDB NOT s 4, OR 104, OP 204, OR 304 



i/»\s /*\:/»\:/#\s/*N8/*M/*\i/*\!/#\s/*\s/*\: /*\i/*\:/*\:/*\:/*\s/#V: /*S: 
;/#\j/«\s/*\s/»\|/*\r/*\i /•\:/»\|/#\:/*\|/*\i /•V|/«\|/*\|/»\i/»\i/*N:/»\i 

,/ # V,/ a \,/«\j/»\./*\{/*\./«\./*\j/*\{/«\ J /#\l/*\j/*\|/#\l/*\:/*\j/*\;/#\| 

{THE FOLLOWING Is A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
;ThIS ERROR PtPOPT WAS GENERATED, THE INFORMATION SHOwN IS 
, BASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
{AREAS TO CHECK FOR THE RFLEVAKlT FAULT/S, 



J 
J 

JRX INIT 
|IN 

{BUS D05 
jRX DATA 
, ...... 

jB SER D 
{DONE 
, ..... 

J 

;/: W: 



J 

{IF THIS ERROR REPORT WAS THE 1ST GIVEN 
{ANALYZE THE FOLLOWING AREA/S! 

(UMBUS INTERFACE) 

SIGNAL ^AMF REASON 



IN A SERIES OF ERRORS 



STUCK HIGH 

STUCK HIGH 

STUCK LOW 

STUCK LOW 

SACK FLOP CLOCK LOCKED LOW 

STUCK LOW 

STUCK HIGH 

LOAD PULSE STUCK LOW 



POSSIBLE CHIPS 

Ell,E3b 

Ell 

£1 

E14 

E9 

E9 

E22 

E3 



\*/:\»/i\#/iV«/!\#/»\*/:\»/»\#/i\*/j\*/i\»/|\*/:\*/:\»/:\*/iN*/^* 
\«/:\*/|\#/i\»/»\#/»\*/|\»/»\*/:\*/:\«/|\*/i\»/|\*/»\*/|\*/j\»/|\* 
\#/5\#/|\*/:\*/!\*/s\*/!\#/:\#/}\*/;\*/8 \#/|\*/»\»/|\«/»\*/»\*/|\* 



1532 003662 104412 
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1533 








1534 








1535 








1536 








1537 








1538 


003664 


012777 


000013 


1539 


003672 


032777 


000040 


1540 


003700 


001404 




1541 


003702 


017701 


175300 


1542 


003706 


005000 




1543 








1544 








1545 








1546 


003710 


104000 




1547 


003712 


104412 




1548 


003714 


004737 


006574 


1549 


003720 


000775 




1550 


003722 


012700 


000040 


1551 


003726 


017701 


175254 


1552 


003732 


020100 




1553 


003734 


001401 




1554 








1555 








1556 








1557 


003736 


104000 




1558 









1585 
1586 
1587 
1588 



; TEST 5 CONT'D - RXCS TEST PART II / RST 

{ THE PURPOSE OF THIS TEST IS TO VERIFY THE RST COMMAND 112+CO 
; AND THAT THE DONE BIT IS CLEARED AFTER THE FUNCTION IS ISSUED. 

; RST COMMAND 

{ TEST DONE BIT (SHOULD = 0) 



175314 


MOV *13, 9 RXCS 


175306 


BIT 8BIT5, RXCS 




BEQ 5$ 




MOV P RXCS, Rl 




CLR R0 



(R0) s j (Rl) s ACTUAL RXCS { (R2) = N/A 



; DONE BIT MOT = 
{ WAIT FOR DONE FLAG 



ERROR 
5$! SUHSCOPE 
9$: JSR PC, SDN 

BR 9$ 

MOV #40, R0 

MOV 9 RXCS, Rl 

CMP Rl, R0 

BEQ 10$ 

; (R0) = 40 j (Rl) a ACTUAL RXCS { (P2) s N/A 

ERROR J RXCS NOT = 40 



|/*\s/»\|/*\|/»\|/*\|/»\|/*\|/*\i/*\« /*\| /*\j/»N»/»\i/»\i/»\i/*\|/*\i/»Nt 

j/*\i/*\:/#\t/*\i/#\i/»\i/*\j/#\i/*\j/*\:/*\i/*\!/*\t/#\|/*\j/*N|/*Vj/*Si 
> /*\j /*\t /#\: /*\i /*\j /*\x /*\ t /*\: /*\i /*\g /»\: /»\i /*\» /*\i /*\s /*\i /*\s /*\s 

{THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

{THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

{BASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

{AREAS TO CHECK FOR THE RELEVANT FAULT/S, 

> 

{IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

{ANALYZE THE FOLLOWING AREA/SJ 



{ PROGRAM EXPECTS RXCS a 40 (DONE) 
» ACTUAL RXCS 



{M7846 (UNIBUS INTERFACE) 



SIGNAL NAME 



REASON 



jRX 

1/1 
J/I 
|/J 



DATA 



PARITY FLOP CLOCK LOCKED HIGH 
PARITY FLOP *Q' OUTPUT 

LOCKED HIGH 
STUCK LOW 



POSSIBLE CHIPS 



E2 
E2 



E6 



\#/j\#/l\#/|\#/lN*/|\*/l\*/|\*/|\»/|\#/|N*/*N*/|N*/lV*/|N»/|N»/lN*/lN* 
\»/l\#/|\#/|\#/|\*/l\#/l\*/|\*/iS*/|\*/|\*/J\*/|\*/lV*/lS*/|\*/l\*/l\» 
\#/|\#/|\»/|\»/|\*/|\»/|\»/|\*/|N»/|\»/|V*/|\»/|N»/|\»/!N*/|N*/|N*/|N* 



003740 104412 



10SI 



SUBSCOPE 



{ THE PXDB SHOULD a 200 (IF DRIVE IS READY) 
{ MAYBE 300 (IF DRIVE IS READY AND SECTOR 1 



, OP IF UNIT IS NOT SELECTED 
WAS WRITTEN WITH DELETED DATA) 
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1589 








1590 


003742 


017702 


175242 


1591 


003746 


010201 




1592 


003750 


042701 


000100 


1593 


003754 


012700 


000200 


1594 


003760 


105737 


012724 


1595 


003764 


100403 




1596 


003766 


042701 


000200 


1597 


003772 


005000 




1598 


003774 


020100 




1599 


003776 


001401 




1600 








1601 








1602 








1603 








1604 








1605 


004000 


104000 




1606 


004002 


000004 




1607 


004004 


000137 


004246 



MOV 8 RXDB 
MOV R2, Ri 
BIC #B1T6, Rl 
MOV 8200, R0 
TSTB UNITSEL 
BM1 US 
BIC »BIT7,R1 
CLP R0 
CMP Rl, R0 
BEG 12$ 



R2 



1 ACTUAL RXDB 



} CLEAR N/A DELETED DATA BIT 
{EXPECT UNIT RDY SET 



} UNIT NOT SELECTED 
{ DISREGUARD RDY BITS 



.) 



(R0) s A OP 200 

(Rl) « ACTUAL RXDB MINUS DELETED DATA BlT#6 

(R2) = ACTUAL PXDB 



12S! 



ERROR 
SCOPE 
JMP CEXIT 



{ RXDB NOT s 200, OR NOT = 
{END OF TEST 5 
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1608 








1609 








1610 








1611 








1612 








1613 








10 14 








1615 


004010 


012737 


000006 


1616 


004016 


004737 


004026 


1617 


004022 


000137 


004246 


1618 








1619 








1620 








1621 


00402b 


005002 




1622 


004030 


012777 


000001 


1623 


004036 


004737 


012260 


1624 


004042 


012704 


017404 


1625 


004046 


004737 


004064 


1626 


004052 


000207 




1627 








1628 


004054 


112477 


175130 


1629 


004060 


005202 




1630 


004062 


000771 




1631 








1632 








1633 








1634 


004064 


004737 


006560 


1635 


004070 


000403 




1636 


004072 


062716 


000002 


1637 


004076 


000207 




1638 








1639 


004100 


004737 


006574 


1640 


004104 


000767 




1641 


004106 


005777 


175074 


1642 


004112 


100003 




1643 


004114 


017701 


175070 


1644 








1645 








1646 








1647 


004120 


104000 




1648 









.SBTTL TEST 6 - FILL BUFFER TRANSFER LENGTH VERIFICATION 

J THE PURPOSE OF THIS TEST IS TO VERIFY THE TRANSFER LENGTH OF THE FUNCTION 
; "FILL BUFFER" OF THE RX01 MICROCONTROLLER 

J 128 BYTE TRANSFERS SHOULD OCCUR 

T6: MOV 86, PAT j COUNT PATTERN 

JSR PC, T6FILL 
JMR CEXIT {END OF TEST 6 

; EXECUTE THE FOLLOWING " MOV *1 , 9 RXCS " INSTEAD OF " INC RXCS " FOR LOOPS 



175150 



T6FILLI CLP R2 
MOV #1 



O RXCS 
JSR PC, GETPATTERN 
MOV #BUFADR, R4 
JSR PC, FBEB 
RTS PC 

MOVB (R4)+, 9 RXDB 
INC R2 
BR IS 



{FILL BUFFER FUNCTION t0 + GO BIT] 



> SUBROUTINE TO FILL/EMPTY BUFFER 
{ EXIT SUBROUTINE T6FILL 



{ FILL THE SECTOR BUFFER 
I INC R2 FOR BYTE COUNT 



{ SUBROUTINE TO FILL AND EMPTY THE SECTOR BUFFER 



JSP PC, STR 
BR IS 

ADD H2, 9 SP 
RTS PC 

JSR PC, SDN 
BR FBEB 
TST @ RXCS 
BPL 3$ 
MOV §RXDB,Rl 



{ TEST FOR TRANSFER REQUEST 



j ADJUST FOR EXIT FROM THIS SUBROUTINE 
{ EXIT TO SERVICE TRANSFER REQUEST 



{ NOT TRANSFER REQUEST OR DONE 
{TEST FOR ERROR FLAG 



{ (P0) = N/A { (Rl) = RXDB (STATUS A) { (R2) = ACTUAL I OF TRANSFERS 
ERROR , UNEXPECTED RX11 ERROR FLAG 



i/*\i/*\i/*Vi/#\i/*\i/#\i/*\i/#\j/#\i/*\i/#\i/#\i/#\j/*\i/*\i/#\:/*\i/#\i 

|/»\t/#\!/*V»/*\|/*\|/*\|/#\l/#\j/#\|/#\|/#\|/*\|/*\t/*\|/#\|/#\ l /*\|/#\ l 

{THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

{THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

;BASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

{AREAS TO CHECK FOR THE RELEVANT FAULT/S, 

J 

{IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

{ANALYZE THE FOLLOWING AREA/Si 
I 

{M7846 (UNIBUS INTERFACE) 
! 
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1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
16814 
1681 
1682 



SIGNAL NAME 



REASON 
PARITY FLOP CAN'T BE CLEARED 



pOSSlbLE CHIPS 
E2 



i/i\»/i\»/i\«/i\«/i\*/i\«/i\«/i\*/i\«/x\»/iN*/i\*/:\*/i\«/:\*/i\*/!N*/i\# 
i/i\#/i\»/i\»yi\#/i\*/:\»/i\#/i\#/:\#/i\t/»\*/i\#/i\#/i\#/i\»/i\#/i\*/i\# 
i/i\»/i\*/i\»/i\#/i\»/i\#/:\#/j\#/:\#/i\»/i\#/:\»/t\»/i\#/i\*/i\#/i\»/i\# 



004122 104412 



004124 022702 000200 
004130 001401 



004132 104000 



36: SUBSCOPE 

J 128 BYTES SHOULD HAVE BEEN TRANSFERRED TO OR FROM THE SECTOR BUFFER 

CMP *200,R2 
BEQ 2S 

j (RU) = M/A j CPU a N/A J (R2) = ACTUAL « OF TRANSFERS 

ERROR > INCORRECT TRANSFER LENGTH 



j/#\|/»\i/*\;/#\:/*\i/#\:/*\|/«\:/*\:/#\s/#\5/#\|/*\j/#\j/#\:/*\i/*\,/*\i 
»/»\:/»\:/#\i/*\s/*\j/#\!/*\i /#\:/#\!/#V!/#\:/*\j/*\:/*\:/#\j/#vt/*\;/#\s 
j/*\:/»\5/»\«/*\:/*\t/*N:/*\:/*\j/*\:/*\:/»\i/#\i/»\!/*\»/*\:/*\i/*\!/*\j 

JTHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS As TO WHY 

;THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

;BASEn ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

jAREAS TO CHECK FOR THE RELEVANT FAULT/S, 

> 

I IF THIS ERROP REPORT WaS THE 1ST GIVEN IN A SERIES OF ERRORS 

;ANALYZE THE FOLLOWING ARFA/S: 

; 

;M7846 (UNIBUS INTERFACE) 

J 

) SIGNAL NAME REASON POSSIBLE CHIPS 



i/i\*/i\*/i\*/i\*/t\*/;\*/i\*/i\*/i\*/ i \*/ i \*/i\*/ i \*/ i \*/ t \*/ i \*/ i \*/ t \* 
j/|\#/i\*/t\»/j\#/j\*/{\#/j\«/:\«/j\*/j\»/:\*/ } \#/i\»/.\#/i\#/j\#/j\#/i\* 
;/:\*/:\»/:\«/t\*/j\#/:\*/:\»/i\»/:\*/!\*/;\«/j\»/s\*/;\*/j\#/j\«/!\*/j\* 



17M6 


004134 


000004 


1707 






1708 


004136 


000237 



J EXIT SUBROUTINE FBEB 



MAINDEC-1 1-DZRXB-E 



DZRXBE.PH 



1709 
171H 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
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TEST 10 - EMPTY BUFFER XFER LENGTH AND CONTENT VERIFICATION PART II 

.SBTTL TEST 10 - EMPTY BUFFER XFER LENGTH AND CONTENT VERIFICATION PART 11 

j THE PURPOSE OF THIS TEST Is TO VERIFY 1HAT THE PREVIOUS EMPTY BUFFER TEST 
; DID NOT EMPTY AND DESTROY THE CONTENTS OF THE SECTOR BUFFER 
JNOTE: TEST 6 MUST BE RUN BEFORE ThIS TEST, 



004140 000240 



004142 
004146 
004152 
004154 
004162 
004166 
004172 



004174 
004176 
004202 
004204 
004206 



NOP 

.SBTTL TEST 7 



; NOP FOR T10 " FAST " DEFINITION 
EMPTY BUFFER XFER LENGTH AND CONTENT VERIFICATION PART I 



; THE PURPOSE OF THIS TEST IS TO VERIFY THE TRANSFER LENGTH OF THE FOUNCTION 
; "EMPTY BUFFER" AND ALSO TO VERIFY THE CONTENTS OF THE SECTOR BUFFER 
} NOTE TEST 6 MUST BE RUN BEFORE THIS TEST 



004737 
000137 
005002 
012777 
012704 
004737 
000207 



112400 
117701 
005202 

020001 

001401 



004152 
004246 

000003 ' 

017404 

004064 



T7! JSR PC, T7EMPTY 

JMp CEXIT 
T7EMPTY: CLR R2 

MOV #3, % RXCS 

MOV #BUFADP, R4 
2S: JSR PC, FBEB 

PTS PC 

; EMPTY BUFFER AND VERIFY THE CONTENTS 

MOVB (R4)+, R0 
MOVB P RXDB, Rl 
INC R2 
CMP R0, Rl 
BEQ IS 



jEND OF TEST 7 OR 10 

} ISSUE THE COMAND TO EMPTY BUFFER 



5 SUBROUTINE TO EMpTY BUFFER 
; EXIT SUBROUTINE T7EMPTY 



> EXPECTED CONTENTS OF SECTUR BUFFER 
; ACTUAL CONTENTS OF SECTOR BUFFER 
1 ACTUAL » TRANSFERS TO THIS ERROR 



} IF AN ERROR OCCURS: 

} (R0) - EXPECTED CONTENTS OF SECTOR BUFFER 

J (Rl) - ACTUAL CONTENTS FROM SECTOR BUFFER 

j CR2) - TOTAL * OF ACTUAL TRANSFERS 



004210 104000 



» DATA " TO " SB NOT = DATA 



»/*\i/*\j/*\j/#\i/*\:/*Vj/*\!/*\i/*\:/#\j/*\j/*\i/*\i/#\j/#\:/#\i/#\i/#\j 

|/*\|/*\j/«Sl/#\|/#\!/»\|/#\|/*\j/*\j/#\|/*\|/#\|/*\l/#\|/#\|/«\l/#\|/#\t 

»THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

jTHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

IBASED ON FAULT INSERTION RESULTS* AND SHOULD PROVIDE LOGICAL 

jAREAS TO CHECK FOR THE RELEVANT FAULT/S, 

I 

I IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

^ANALYZE THE FOLLOWING APEA/Sl 

M7846 (UNIBUS INTERFACE) 

SIGNAL NAME REASON POSSIBLE CHIPS 

RX RUN STUCK LOW E24 



MAINDEC-11-DZRXB-E 
DZRXBE.PH TEST 
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fLOAD 

» -« — - — - 
1 


STUCK 


uOW 

BINARY COUNTER 
LOCKED HIGH 


jRX DATA 




STUCK HIGH 


>BUS D04/D05 




STUCK HIGH/LOW 


jBUS D02 
I 




STUCK HIGH 



E3 

E1,E4 

E7 



I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 

)AND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 

jM7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/WRITE 
JMODULE M7727, 

NOTEJ ONLY APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS! ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 
HOWEVEP, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 



M7727 (READ/WRITE CONTROL) 
SIGNAL NAME 



POSSIBLE CHIPS 



REPLACE E5 



/:\#/|\*/|\*/|\#/|\»/!N#/:\*/|\*/|N*/|\*/|N»/|\*/l\«/|\*/|V*/»N*/»\*/|V* 
/j\#/|\*/|\»/|\*/|\#/|\#/|\*/»\*/|\*/|\*/*\*/|\*/|N*/lN»/|V*/|\*/:\*/l\» 

IS! SCOPE 
BR 2$ 

.SBTTL TEST 12 - FILL/EMPTY BUFFER ALL l'S 

; PROGRAMMING NOTEj THE FOLLOWING " MOV " INSTEAD OF 

012324 T12I MOV »1, PAT 

bP ,+6 

.SBTTL TEST 11 - FILL/LMPTY BUFFER ALL 0'S 

Til! CLP PAT 

JSR PC, T6FILL 
JSR PC* T7EMPTY 
JMP CEXTT 



1795 


004212 


000004 


1796 


004214 


000764 


1797 






1798 






1799 






1800 






1801 






1802 


004216 


012737 


1803 


004224 


000402 


1804 






1805 






1806 






I8tf7 


004226 


005037 


1808 


004232 


004737 


1809 


00423b 


004737 


1810 


004242 


00013 7 



012324 
004026 
004152 
004246 



jEND OF TEST 11 OR 12 
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SEU 0065 



1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 



004246 
004254 



004260 
004266 



004 

004 

004 
004 
004 
004 
004 
004 
004 
004 



272 
276 
300 
306 
312 
314 
320 
324 
326 
332 
334 



012737 
000137 



012737 
000137 



105737 
100020 
012777 
004737 
000775 
012700 
017702 
010201 
042701 

020001 

001401 



004336 104000 
004340 104412 



004 
004 
004 
004 



342 
346 
350 
356 
362 
364 
370 
374 
376 
402 



005737 
100020 
012777 
004737 
000775 
012700 
017702 
010201 
042701 
020100 
001401 



000103 
002162 



000104 
002162 



000013 
006574 



000200 
174664 



000033 
006574 



000200 
174614 



004406 104000 



CEXIT! 
DEXU: 

»THIS 
JTHIS 
T13I 

IS! 



MOV #'C,MX 
JMP MORETESTS 



MOV #'D,MX 
JMP MORETESTS 



;F.OP INDICATOR FOR END OF CONTROL TESTS 
JEOP INDICATOR FOR END OF DRIVE IfcSTS 



.SBTTL TEST 13 DRIVE READY VERIFICATION 
TEST VERIFIES THAT DRIVE READY WILL SET FOR ALL SELECTED DRIVES, 
SECTION OF TEST FOR UNIT DRY NO A READ STATUS A FUNCTION 



T5TB UNITSEL 

BPL 2S 

MOV #13,PRXCS 

JSR PCSDN 

BP IS 

MOV #200#R0 

MOV §RXDBrP2 

MOV R2,R1 

BIC #BIT6,R1 

CMP R0,R1 

BEQ 2S 



»WAS UNIT SELECTED 
jNO, GO TEST UNIT 1 
JREAD STATUS A UNIT 
;WAIT FOR DONE FLAG 

jEXPECT DRIVE READY TO BE SET 
jACTUAL RXDB 

JCLEAR DD BIT IF SET 

jWAS " DRY " SET AND INITDONE CLEARED 



»R0 s 200 J PI a RXDB MINUS DD BIT ;R2 = ACTUAL RXDB 

ERROR 
2$! SUBSCOPE 

jTEST FOR UNIT 1 DRIVE READY ON A READ STATUS A FUNCTION 



TST UNITSEL 

BPL 3$ 

MOV #33,9RXCS 

JSR PC#SDN 

BR 4$ 

MOV #200, R0 

MOV $RXDB,P2 

MOV R2iPl 

BIC »BIT6#R1 

CMP R1,P0 

BEQ 3$ 



jWAS UNIT 1 SELECTED 
jNO, GO TO END OF TEST 
jREAD STATUS A FOR DRIVE 1 
JWAIT FOR DONE FLAG 

;EXPECT " DRY " TO BE SET 



jCLEAR DD BIT IF ANY 

» IS DRY SET AND IN1TDONE CLEARED 



200 J Rl = RXDB MINUS DD BIT J P2 ■ ACTUAL RXDB 
ERROR 



l/#\i/#\i/»\i/#\!/*\i/*\i/»\j/*\!/*\j/#\j/*\i/*\:/*\:/*M/*Nj/*\J/*Nj/*\i 

i/#\|/#\|/#\|/#\|/#\|/»\|/*V|/*\|/*\|/*\|/*\|/»\|/*V|/*N|/*N|/*N|/*N*/*\l 
|/#\|/#\l/#\|/#\|/»\|/«\|/#\|/#\|/#\|/*\|/#\|/»N|/*\|/*N|/*N|/*N|/*Nl/*Nl 

I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 

jAND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 

|M7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/WRITE 
jMODULE M7727. 
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ONL* APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 
THE FAULT INSERTION PROCESS; ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE IS NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 



;M7727 (READ/WRITE CONTROL) 

I 

j SIGNAL NAME 



POSSIBLE CHIPS 



1B95 
1896 



MAKE SURE THE DRIVES ARE CONNECTED CORECTL*,THE 
DISKETTES INSERTED,AND THE DOORS OF THE SELECTED DRIVES 
ARE CLOSfcD. IF THE THESE CONDITIONS ARE NOT SET THERE 
WILL BE AN ERROR AT THIS POINT, 



> 

ISEL DK1 
)DK1 INDX 
jSEL INDX 
J 

i/j\#/i\#/i\#/i\#/i\#/i\W|\#/»\«/|\«/i\#/i\*/:\*/|\*/*\*/:\*/iV«/|Wi\» 



STUCK LOW 
STUCK HIGH/LOW 
STUCK HIGH/LOW 
'A2' INPUT STUCK LOW 



E13,E14 
El 5 
E15 
E15 



0044ltf 
004412 



00*3004 
000137 



3S: 



SCOPE 
JMP DF.XIT 



;END OF TEST 13 
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DZRXBE.PU TEST 14 - ERROR FLAG AND B-CODE VF.R II- IC ATION PART I 



1897 
1898 
1899 
1900 

1901 

1902 
1903 
1904 
1905 
1906 
1907 
1908 
19n9 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
192 2 
1923 



.SBTTL TEST 14 - ERROR FLAG AND B-CODE VERIFICATION PART 1 

JTHE PURPOSE OF THIS TEST IS TO VERIFY THAT TRYING TO READ A NON-hXISTANT 
JSECTOR WILL CAUSE AN ERROR* AND THfc CORRECT ERROR CODE WILL bE PUT 
;INTO THE RXDB WHEN THE b STATUS IS READ, 

jTHlS SECTION INSURES THAT ONLY 2 TR FLAGS WERE REQUIRED TO TAKE THE 
^DISKETTE ADDRESS, AND THAT AN ERROR DOES EXIST, 



004416 
004420 
004422 
0^4426 
004430 
004436 
004440 
004446 
004452 
004454 
004460 
004464 
004466 



005002 

005000 

105737 
100004 
012777 
000403 
012777 
004737 
00040b 
012700 
017701 
020001 
001401 



000027 
005106 



100040 
174522 



174550 
174540 



10SJ 
11$: 



JR0 



004470 lk)4000 



CLR R2 

CLP P0 

TSTB UNITSEL 

BPL 10S 

MOV #7,0RXCS 

BR IIS 

MOV #27,£PXCS 

JSR PCILLADR 

BR IS 

MOV #100040, R0 

MOV PRXCS,Rl 

CMP R0,R1 

BEQ 2$ 

100040 > Rl = ACTUAL RXCS 

ERROR 



jlS UNIT SELECTED 

?SET READ SECTOR FUNCTION AND GO 

{SEND READ FUNCTION TO UNIT t 
jSENO THE BAD SECTOR ADDRESS 
jPREMATUFE ERROR CONDITION 
JEXPECT ERROR AND DONE BITS 
;SAVE THE RXCS 



R2 = « OF TR FLAGS 



f /*\t /»\: /*\s /*Nt /*^s /*\: /*\: /*\j /*\« /*\t /*\i /»\i -/-m-Vi /*\i x»\i /«\« /*\| /*\» 
» /#\t /»\» /»\s /»\i /*\s /*\t /*\: /»\t /*\i /*\j /»\ t /*\t /*\t /*\j /*\s /*\i /*\i /*\: 

;THE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 
;THIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 
jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 
jAREAS TO CHECK FOR THE RELEVANT FAULT/S, 

I IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 
^ANALYZE THE FOLLOWING AREA/S: 



JM7846 (UNIBUS INTERFACE) 
SIGNAL NAME 



REASON 



POSSIBLE CHIPS 



1 

,BUS D15 STUCK HIGH El 4, E9, E40, E24 

jRX RUN STUCK LOW E41 

|/|\#/l\#/l\#/|N#/|\#/|\*/|\*/|\*/|\*/|\*/lN*/|\»/lN*/lN*/lN*/l\*/lN*/lN* 



1948 
1949 
1950 
1951 
1952 



4472 104412 



2$: 



SUBSCOPE 



>T14 CONT, - THIS SECTION TESTS THAT 
;0N PREVIOUS FUNCTION, 



NO PARITY OR CRC ERROR OCCURRED 
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1953 


004474 


005000 




1954 


004476 


017702 


174506 


1955 


004502 


010201 




1956 


004504 


042701 


000100 


1957 


004510 


020001 




1958 


004512 


001401 




1959 








1960 








1961 








1962 


004514 


104000 




1963 


004516 


104412 




1964 








1965 








1966 








1967 








1968 


004520 


012777 


000017 


1969 


004526 


004737 


006574 


1970 


004532 


000775 




1971 


004534 


005777 


174446 


1972 


004540 


100^07 




1973 


004542 


012700 


000040 


1974 


004546 


017701 


174434 


1975 


004552 


017702 


174432 


1976 








1977 








1978 








1979 


004556 


104000 




1980 


004560 


104412 




1981 








1982 








1983 








1984 


004562 


01270k) 


000070 


1985 


004566 


017701 


174416 


1986 


004572 


005002 




1987 


004574 


020001 




1988 


004576 


001401 




1989 








1990 








1991 








1992 


004600 


104000 




1993 









JSTATUS A SHOULD BE CLEAR 



CLR R0 

MOV &RXDB,R2 
MOV R2,R1 
BIC #BIT6,R1 
CMP R0,R1 
6EQ 3$ 

|R0 s K , Ri s RXDB MINUS DD BIT } R2 ■ ACTUAL RXDB 

ERROR 
38l SUBSCOPE 

JT14 CONT, - THIS SECTION TESTS THAT NO ERROR CONDITIONS EXIST ON A 
>READ STATUS B FUNCTION, 



4S: 



MOV M7,0RXCS 
JSP PC, SON 
BR 4$ 
TST 0RXCS 
bPL 58 
MOV #40, R0 
MOV PRXCS,R1 
MOV @RXDB,R2 



;Rfcj a 40 i Rl = PXCS j R2 = RXDB 



ERROR 
SUBSCOPE 



jSET READ STATUS B FUNCTION 
;WAIT FOR DONE FLAG 

;IS THE ERROR BIT SET 

jNO, GO ON TO NEXT SECTION 

>YES,SET UP FOR ERROR 



;RXCS NOT = 40 



?T14 CONT, - THIS SECTION TESTS THE B-CODE FOR H CAN'T FIND SECTOR » #70 

MOV #7k),R0 

MOV PPXDB,R1 

CLP P2 

CMP P0,P1 ;IS THE B-CODE » 70 

BEQ 6S 

;R<a = 70 j Rl = ACTUAL B-CODE ; R2 = N/A 



i/*\!/#\:/*\:/#\j/#\:/»\!/»\:/*\!/*\:/*\t/*\:/*\{/»\i/*\:/#\:/*\i/#\i/#\: 
i/*\i/»\i/*\i/*\t/*\i/*\i/*\i/*\i/*\i/*\i/»\t/»\i/*\t/*\i/*\i/*\i/*\i/»\i 

> IF THE FAULT CANNOT BE FOUND ON THE IJNIBUS INTERFACE MODULE 

lAND/OR THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 
J*7R46 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/WRITE 

JMODULE M7727, 
1 

J NOTES ONLY APPPCX. 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

; THE FAULT INSERTION PROCESS; ERGO, THE RESOLUTION FOR FAULT 

j ANALYSIS OBTAINABLE BY THIS MODULE Is NOT VERY HIGH, 

J HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 

j REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 



MAINDEC-11-DZRXB-E MACY11 27(732) lb-MAR-76 15:55 PAGE 44 
DZRXBE.Pll TEST 14 - ERROR FLAG AND B-CODE VERIFICATION PART I 



2029 
2030 
2031 



LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 
M7727 (READ/WRITE CONTROL) 

SIGNAL NA*E REASON POSSIBLE CHIPS 



J 



INIT 

SEL TRK 
DK1 TRK 
SEL DK0 
WT GATE 
SEL WT PROT 
RAW DATA 
STEP 



STUCK HIGH 
STUCK HIGH 
STUCK HIGH 
STUCK LOW 
STUCK HIGH 
STUCK LOto 
STUCK HIGH/LOW 
STUCK LOw 
REPLACE E4 



E16 

E15 

E15 

tl 5, El 4, El 3 

E5 

E5 

E14 

E14 



j/:\*/i\»/j\*/i\#/i\*/j\*/:\*/:\*/j\*/:\#/:\*/:\*/j\#/i\*/i\*/:\*/:\#/i\# 
i/j\#/i\*/|\*/i\#/i\*/j\«/i\*/:\*/{\#/:\#/:\*/:\*/:\*/j\*/j\*/:\*/i\#/i\* 
j/:\*/j\»/j\»/i\*/:\*/j\*/j\*/:\*/:\»/:\#/:V*/:\*/j\#/i\*/:\*/tV*/i\#/i\# 



004602 
004604 



000137 004260 



SCOPE 
JMP DEXIT 



jEND OF TEST 14 
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2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 



004610 
004612 
004614 
004620 
004622 
004630 
004632 
004640 
004644 
00464b 
004652 
004656 
004660 



005000 
005002 
105737 
100004 
012777 
000403 
012777 
004737 
000406 
012700 
017701 
020001 
001401 



004662 104000 
004664 104412 



004b66 
004670 
004674 
004700 
004702 



004704 
004706 



H047l« 
00471b 
004722 
004724 
004730 
004734 
004736 



004740 
004742 
004744 



012777 
0047 37 
H00775 
012700 
017701 
020k301 
001401 



00fc>035 
005106 



100040 
174330 



174356 
174346 



005002 

012700 000100 

017701 174310 

020001 

001401 



104000 

104412 



000017 
000574 



000070 
174254 



104000 
000004 
000137 004260 



.SBTTL TEST 15 - ERROR FLAG AND B-CODE VERIFICATION PART II 

JTHIS TEST VERIFIES THAT TRYING TO WRITE, USING DELETED DATA MODE, ON A 
jNON-FXISTANT SECTOR WILL PRODUCE AN ERROR AND THE CORRECT B-CODE IS PRODUCED 
jTHIS SECTION, SENDS OUT AN ILLEGAL SECTOR ADDRESS AND EXPECTS AN ERROR 
; NOTE TEST 14 MUST BE RUN BEFORE THIS TEST 



T15: 



IMS! 
11SS 



CLP H0 

CLR R2 

TSTB UNITSEL 

BPL 10$ 

MOV #15,eRXCS 

BR 11$ 

MOV U35,0RXCS 

JSP PCILLADR 

bP 1$ 

MOV #100040, R0 

MOV £RXCS,R1 

CMP P0,P1 

BEG 2$ 



jWAS UNIT SELECTED 

;SET WRITE DELETED DATA FUNCTION 

JSEND WTR DD FUNCTION TO UNIT 1 
>SEND THE ILLEGAL SECTOR ADDRESS 
; PREMATURE ERROR CONDITION 
jEXPECT ERROR AND DONE FLAGS 



;R0 s 100040 jRl 



1$: 
2$: 



ERROR 
SUbSCOPE 



ACTUAL RXCS ; R2 » » OF TR FLAGS 

JRXCS NOT a 10 



;T15 CONT, - THIS SECTION TESTS THAT THERE IS NO PARITY, 
;AND THAT THE DELETED DATA BIT IS SET. 



CLR R2 
MOV U00,R0 
MOV PRXDB,R1 
CMP R0,R1 
BEO 3$ 

; R0 - 100 » PI s ACTUAL RXDB ; R2 = N/A 



jEXPECT DELETED DATA BIT TO BE SET 



ERROR 
SUBSCOPE 



jDELETED DATA NOT SET OR UTHER ERRORS 



;T15 CONT, - THIS SECTION TESTS FOR THE B-CODE FOR ILLEGAL SECTOR, 



MOV *17,0RXCS 
S! JSR PC, SON 
BR 4$ 

MOV 870, R0 
MOV ePXDB,Rl 
CMP R0,R1 
BEQ 5$ 

R0 s 70 i HI = ACTUAL b-CODE ; R2 = N/A 
ERROR 
S: SCOPE 

JMP DEXIT 



jSET READ STATUS B FUNCTION 
;WAIT FOR DONE FLAG 



;RXDB NOT a 70 
jEND OF TEST 15 
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2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
211b 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 



004750 
004752 
004754 
004760 
004762 
004770 
004772 

005000 

005004 
005006 
005012 
005016 
005020 



005022 
005024 



005026 
005030 
005032 
00503b 
005040 



005042 
005044 



005046 
005054 
005060 
005062 
005066 
005072 
005074 



005076 
005100 
005102 



005000 
005002 
105737 
100004 
012777 
000403 
012777 
004737 
000406 
012700 
017701 
020001 
001401 



104000 

104412 



005002 
005000 
017701 
020001 
001401 



000025 
005106 



100040 

174170 



174216 
174206 



.SBTTL TEST 16 - ERROR FLAG AND B-CODE VERIFICATION PART III 

JTHIS TEST VERIFIES THAT A WRITE FUNCTION TO A NON-EXISTANT SECTOR WILL 
jPRODUCE AN ERROR AND A B-CODE OF 70. THE DELETED DATA BIT SHOULD ALSO BE CLEARED 
jTHIS SECTION TRANSFERS AN ILLEGAL SECTOR ADDRESS FOR A WRITE FUNCTION 
; NOTE TEST 14 MUST BE RUN BEFORE THIS TEST 



Tib: 



10$: 
11$: 



012777 000017 

004737 006574 

000775 

012700 

017701 

020001 

001401 



000070 
174116 



104000 
004 
137 004260 



CLR R0 

CLR R2 

TSTB UNITSEL 

BPL 10$ 

MOV #5,0RXCS 

BR 11$ 

MOV #25,9RXCS 

JSR PCILLADR 

BR 16 

MOV #100040, R0 

MOV 0RXCS,R1 

CMp R0,R1 

BEQ 2S 



fWAS UNIT SELECTED 

;SET THE WRITE FUNCTION 

;SEND WRITE FUNCTION TO UNIT 1 
I SEND THE ILLEGAL ADDRESS 
;PREMATURE ERROR CONDITION 
jEXPECT ERROR AND DONE BITS SET 



100040 



Rl 



ACTUAL RXCS j R2 = # OF TR FLAGS 



IS! 
2$: 



ERPOR 
SUBSCOPE 



>T16 CONT. - TESTS FOR NO PARITY, CRC ERRORS, AND NO DELETED DATA BIT 

CLP R2 

CLR R0 jNO BITS SHOULD BE SET IN THE RXDB 

MOV PRXDB,R1 

CMP R0 # R1 

BEQ 3$ 



» PI a ACTUAL RXDB > P2 = N/A 
ERROR 
SUBSCOPE 



JSOME BIT IS SET IN THE RXDB 



; R0 = 
3$: 

>T16 CONT, - TEST FOR CORRECT B-CODE FOR ILLEGAL SECTOR ADDRESS 





MOV #17,PRXCS 






4$; 


JSR PCfSDN 
BR 4$ 

MOV #70, R0 
MOV SRXDB,R1 
CMP R0,R1 
BEQ 56 






) R0 = 70 j Rl s ACTUAL RXDB I 


1 R2 = N/A 




ERROR 






5SJ 


SCOPE 
JMP DEXIT 







;SET READ STATUS B FUNCTION 
;WAIT FOR DONE FLAG 



I IS B-CODE s 70 
>YES, CONTINUE 



jEND OF TEST 16 
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2137 








2138 








2139 








2140 


005106 


004737 


006560 


2141 


005112 


000402 




2142 


005114 


005202 




2143 


005116 


000404 




2144 


005120 


004737 


006574 


2145 


005124 


000770 




2146 


005126 


000430 




2147 


005130 


005077 


174054 


2148 


005134 


004737 


006560 


2149 


005140 


000402 




2150 


005142 


005202 




2151 


005144 


000404 




2152 


005146 


004737 


006574 


2153 


005152 


000770 




2154 


005154 


000415 




2155 


005156 


005077 


174026 


2156 


005162 


004737 


006560 


2157 


005166 


000402 




2158 


005170 


005202 




2159 


005172 


000406 




2160 








2161 


005174 


004737 


U06574 


2162 


005200 


000770 




2163 


005202 


062716 


000002 


2164 


005206 


000207 




2165 


005210 


017701 


173772 


2166 


005214 


000774 





jGENERATE AN ILLEGAL SECTOR ADDRESS 



illadpi 


JSR PCSTR 




BR 2S 




INC R2 




BR 3$ 


2$: 


JSR PCSDN 




BR ILLADR 




BR 18 


3S: 


CLR 0RXDB 


7S: 


JSP PCSTR 




BR 5S 




INC R2 




BR 6$ 


5$i 


JSP PCSDN 




BR 7$ 




BP 1$ 


6S! 


CLP 9RXDB 


n$: 


JSR PCSTR 




BR 10$ 




INC P2 




BR IS 


10S: 


JSR PCSDN 




BR US 




ADD »2,3SP 


4s: 


RTS PC 


1$: 


MOV SRXCS.Pl 




BR 4$ 



fLOOK FOR A TR FLAG 

|NO TR FLAG, IS DONE SET 

jTR FLAG COUNTER 

jLOOK FOR DONE FLAG 

,NOT DONE RECHECK TR FLAG 

I DONE IS SET TOO EARLY GO TO ERROR 

j0 SECTOR ADDRESS (ILLEGAL) 

jLOOK FOP SECOND TR FLAG 

;NOT TR, IS IT DONE 

jTR FLAG SEMD TRACK ADDRESS 

jLOOK FOR DONE FLAG 

;NOT DONE, RECHECK TR FLAG 

jOONE TOO SOON GO TO ERROR 

jSEND TRACK ADDRESS OF 

jARE THERE ANY MORE TR FLAGS 

jNO, LOOK FOR DONE 

>YES 

jTOO MANy TR FLAGS OR MICROCONTROLLER 

|DID NOT DETECT THE ERROR 

jLOOK FOR DONE FLAG 

jNOT DONE RETEST TR FLAG 



') 
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2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 



005216 
005220 
005222 
005230 
005234 
005236 
005240 
005244 
005246 
005252 
005256 
005260 
005266 
005272 
005274 
005276 
005302 
005304 
005310 
005314 
005316 
005324 
005330 
005332 
005336 
005342 
005344 



005002 
005000 
012777 
004737 
000401 
000410 
004737 
000771 
017701 
017702 
000433 
012777 
004737 
000401 
000410 
004737 
000771 
017701 
017702 
000414 
012777 
004737 
000775 
012700 
017701 
020001 
001401 



005346 104000 



000007 
006560 



173734 
173732 



000001 
006560 



173676 
173674 



000115 
006574 



100040 
173644 



.SBTTL TEST 17 - ILLEGAL TRACK ERROR VERIFICATION 

;THIS TEST VERIFIES THAT IF A TRACK ADDRESS LARGER THAN 114 (OCTAL) Is 
ACCESSED, AN ERROR CONDITION wlbL EXIST, AND A B-CODE WILL s 40 



2$: 

5SJ 



173664 7Sl 
10SJ 



CLR P. 2 

CLR R0 

MOV #7,0RXCS 

JSR PCSTR 

BR IS 

BP 2S 

JSR PCSDN 

BR 3$ 

MOV PRXCS,R1 

MOV §PXDB»R2 

BR 4S 

MOV fri,BRXDB 

JSR PCSTR 

BR 6$ 

BR 7$ 

JSR PCSDN 

BR 5S 

MOV PRXC5,Rl 

MOV 8RXDB,R2 

BR 4$ 

MOV #115,?RXDB 

JSR PCSDN 

BR 10S 

MOV $100040, R0 

MOV PRXCS,R1 

CMP R0,R1 

BEG 116 



JSET READ FUNCTION 

jLOOK FOR TR FLAG 

jNO TR FLAG CHECK DONE 



jDONE OCCURRED TOO SOON SET Up FOR ERROR 



jSEND LEGAL SECTOR ADDRESS 
jLOOK FOR TR FLAG 



JDONE SET TOO EARLY 



jSEND ILLEGAL TRACK ADDRESS 
jWAIT FOR DONE ON THE ERROR 



;EXPECT ERROR AND DONE SET 



jTWO ERROR CONDITIONS TO REPORT 

jIF R0 s THEN Rl a RXCS }R2 ■ RXDB ON A DONE TOO SOON ERROR 

I IF R0 a 100040 THEN Rl s ACTUAL RXCS > R2 = N/A 



»DONE SET TOO SOON OR NO ERROR OCCURRED 



j/#\|/»\|/*\j/»\!/»\|/*\!/*\«/*\t/*\|/*\|/*\|/* , M/* , M/*V|/*N«/'*M/*\j/*N? 

ITHE FOLLOWING IS A PRESENTATION OF POSSIBLE REASONS AS TO WHY 

jTHIS ERROR REPORT WAS GENERATED, THE INFORMATION SHOWN IS 

jBASED ON FAULT INSERTION RESULTS, AND SHOULD PROVIDE LOGICAL 

jAREAS TO CHECK FOR THE RELEVANT FAULT/S, 

I 

I IF THIS ERROR REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS 

jANALYZE THE FOLLOWING AREA/SJ 



IM7846 
? 



CUNIBUS INTERFACE) 
SIGNAL NAME 



POSSIBLE CHIPS 
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INT ENB FLOP CLOCK LOCKED HIGH E40 



i/:\#/i\»/i\»/|\»/i\#/iV«/|\»/i\»/i\*/:\»/i\»/i\*/i\»/i\#/i\*/i\#/»\»/i\# 

;/j\»/j\*/j\*/«\»/j\*/!\*/:\»/:\*/j\*/s\»/i\*/:\*/?\*/|\*/:\*/t\*/i\*/:\* 



223/ 


005350 


104412 




2231 








2232 








2233 








2234 








2235 


005352 


005000 




2236 


005354 


005002 




2237 


005356 


017701 


173626 


2238 


005362 


020001 




2239 


005364 


001401 




2240 








2241 








2242 








2243 


005366 


104000 




2244 


005370 


104412 




2245 








2246 








2247 








2248 


005372 


012777 


000017 


2249 


005400 


304737 


006574 


2250 


005404 


000775 




2251 


005406 


005777 


173574 


2252 


005412 


100007 




2253 


005414 


01270?) 


000040 


2254 


005420 


017 7 01 


1735fe2 


2255 


005424 


017702 


173560 


2256 








2257 








2258 








2259 


005430 


104300 




2260 


005432 


104412 




2261 


005434 


005002 




2262 


005436 


012700 


000040 


2 26 3 


005442 


017 7 01 


173542 


2264 


005446 


020001 




2265 


W05450 


0^/1401 




2266 








2267 








2268 








2269 


005452 


104000 




2270 


005454 


000004 




2271 


005456 


000137 


004260 



;T17 COMT, - TEST THAT THERE WERE NO OTHER ERRORS THAN THE ILLEGAL TRACK ERROR EXPECTED 
;AND THAT THE DELETED DATA BIT WAS CLEARED BY TEST 16, 



CLR R0 

CLR P2 

MOV fJRXDB,Rl 

CMP R0,R1 

BEQ 12S 



;DD BIT CLEARED IN TEST 16 SO RXDB a 



Rl 



ACTUAL RXDB J R2 = N/A 



12$: 

JT17 COMT, 



ERROR 
SuiBSCOPE 



VERIFIES THAT PLAD STATUS B HAS NO ERRORS 



MOV »17,PRXCS 
JSR PCSDN 
BR 13S 
TST PRXCS 
BPL 14S 
MOV »40»R0 
MOV PRXCS.Rl 
MOV <aPXDB»P2 

40 (DONE) j PI 

ERROR 

SUB5C0PE 

CLR P2 

MOV »40,R0 

MOV ORXDB,Rl 

CMP R0,R1 

BEQ 15S 



JSET READ STATUS B FUNCTION 
JWAIT FOR DONE FLAG 



;WAS THERE AN ERROR ON THIS FUNCTION 
JNQ 



ACTUAL RXCS j R2 = ACTUAL RXDB 

{THERE WAS AN ERROR NO READ STATUS B 



JB-CODE FOR ILLEGAL TRACK ADDRESS 



P0 s 40 : Rl 

ERROR 
5S: SCOPE 

JMp DEXIT 



jB-CODE IS CORRECT 
ACTUAL B-CODE J R2 = N/A 



;END OF TEST 17 
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2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 



.SBTTL TEST 20 - SEEK VERIFICATION VIA READ FUNCTION 

J THE PURPOSE OF THIS TEST IS TO DO A READ FUNCTION ON ALL 

jSECTORS OF VARIOUS TRACKS ON THE DISKETTE, THIS WILL TEST FOR SEEK ERRORS 

;FOR THOSE TRACK POSITIONS. UNLESS OTHERWISE SELECTED (IN OD/ID) THE TRACKS 

.•ACCESSED ARE (OD), 52, 53 (BOTH SIDES OF THE WRITE CURRENT CHANGE), AND 114 (ID), 



!/*\i/*\:/»\;/»\t/*\i/*\s /»\j/*\s/*\|/*\j/*\;/*\:/*\!/*\:/*\:/*\:/*\:/#\: 
i/#\i/*\i/#\i/*\i/*\»/»\«/»\i/*\»/»\:/»\i/*\j/#\:/*\i/«\i/#Vj/«\:/#\:/»\i 

j/»\i/*\i/#\j/*\i /*\j/*\i/#\j /*\;/#\:/#\:/#\:/*\»/»\|/#\i/#\|/*\|/#\s/*\: 



2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 



JIF THE DIAGNOSTIC GIVES AN ERROR REPORT WITH A FORMAT OF 

;'TEST PCs' WHERE THE 'PC IS WITHIN THE RANGE OF THIS TEST 

JTHEN THE POSSIBLE CHIPS VERSUS THE 'B* CODE (INTERPRETIVE 

;ERR0R CODE) PRINTED ARE AS FOLLOWS: 

» 

IF 'B' CODE WAS POSSIBLE CHIPS 



120 
150 
200 



E5,E6 

E13,E14,E16,E17 

E5,E6 



/i\*/i\#/i\*/i\«/i\«/j\#/i\*/j\»/|\#/i\#/i\#/i\#/i\»/i\»/i\#/:\*/iV#/!\# 



005462 013702 001204 

005466 012722 011526 

005472 012722 000340 

005476 004737 006762 

005502 000137 004260 



MOV KRXVEC,P2 
MOV #INTSERV, (R2)+ 
MOV »PR7,(R2)+ 
JSR PCRDONLY 
JMP DEXIT 



.SBTTL TEST 21 » WRITE TEST 



jSET UP INTERRUPT ADDPESSES 



|DO THE READ FUNCTION 
jEND OF TEST 20 



I THE 
fAND 



PURPOSE OF THIS TEST IS TO WRITE ALL ONES ON SECTOR 1 TRACK 1, 
VERIFY THAT THE DATA IN THE SECTOR BUFFER Is NOT MODIFIED, 



005506 
005514 
005522 
005526 
005534 
005540 
005544 
005546 
005554 
005560 
005562 
005566 



012737 
012737 
004737 
012737 
004737 
004737 
005002 
012777 
004737 
000404 
112077 
005202 



000001 
000001 
012634 
000001 
012260 
010766 



013126 
013416 



mov »i, 

MOV SI, 
JSR PC, 
MOV #1, 
JSR PC, 
JSP PC, 
CLR R2 
MOV »1, 
JSP PC 
BR 2$ 
MOVB (P 
INC R2 



TARGET 

TSECTOR 

GETUNIT 

PAT 

GETPATTEPN 

ADJSUM 

!9RXCS 
FBEB 

0)+,SRXDB 



jSET CHECK SUM VALUES 
|SET FILL BUFFER FUNCTION 
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2328 005570 000771 

2329 005572 012737 000H05 

2330 005600 004737 005610 

2331 005604 000137 004260 



007702 2S» 



BR 16 

MOV 95, FUNCTION 
JSR PCT21X 
JMP DEXIT 



|SET WRITE FUNCTION 
fGO ISSUE THE COMMAND 
,END OF TEST 21 



•:.) 
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2332 


005610 


004737 


0076 34 


2333 


005614 


004737 


006574 


2334 


005620 


000775 




2335 


005622 


005777 


173360 


2336 


005626 


100013 




2337 


005630 


017701 


173354 


2338 


005634 


012777 


000017 


2339 


005642 


0M4737 


0tfb574 


2340 


005646 


000775 




2341 


005650 


017702 


173334 


2342 








2343 








2344 








2345 


005654 


104000 




2346 









JSR PCCOMMWORD 

JSR PCSDN 

BR 3S 

TST f*PXCS 

BPL 4S 

MOV aPXDBfRl 

MOV 017.PRXCS 

JSP PCSDN 

MOV 9RXDB,R2 



;IS THE ERROR BIT SET 

>N0 ERRORS 

jSAVE STATUS A 

jSET READ STATUS b FUNCTION 



jSAVE STATUS B 



;P0 = ADDR OF LAST DATA BYTE J Rl = STATUS A J R2 = STATUS B 



i/»\i/»\i/*n»/*\i/*\:/*\»/*\i/*\i/«\:/«\i/«\:/*\i/*\i/#\j/»\:/»m/«\i/*\i 
i/«\i/»\i/t\i/#\i/#\i/#\i/#\i/*\|/#\i/*\|/#\|/»\|/#\|/»\|/#\i/#\|/#\|/#\i 

I IF THE FAULT CANNOT BE FOUND ON THE UNIBUS INTERFACE MODULE 

jAND/OP THE FAULT IS NOT INHERENT TO THE UNIBUS INTERFACE MODULE 

)M7846 THERE IS A POSSIBILITY OF ITS EXISTENCE ON THE READ/WRITE 
jMODULE M7727. 

NOTE: ONLY APPROX, 30% OF THIS MODULE LENT ITSELF CONDUCIVE TO 

THE FAULT INSERTION PROCESS: ERGO, THE RESOLUTION FOR FAULT 
ANALYSIS OBTAINABLE BY THIS MODULE Is NOT VERY HIGH, 
HOWEVER, ANALYSIS OF THE FOLLOWING AREA/S, IF THIS ERROR 
REPORT WAS THE 1ST GIVEN IN A SERIES OF ERRORS, SHOULD AT 
LEAST PLACE YOU WITHIN THE RELEVANT AREA ON THE MODULE, 



M7727 (READ/WRITE CONTROL) 
SIGNAL NAME 



WT DATA 
WT GATE 



STUCK LOW/HIGH 
STUCK LOW 



POSSIBLE CHIPS 



E5 
E13 



/i\*/»\*/:\#/i\*/i\*/j\*/i\*/:\#/:\»/:\*/:\*/i\#/i\#/i\*/i\*/:\#/i\*/i\* 
/i\#/i\*/i\»/i\#/:\#/i\#/iV»/:\»/j\*/iV#/:\*/:\#/!\#/i\#/j\#/i\#/i\#/i\» 
/i\#/i\*/i\»/i\*/i\*/:\*/i\*/:\*/i\*/:\*/i\*/»\*/:\#/:\*/:\*/j\*/i\*/:\# 



2375 


005656 


104412 




2376 


005660 


005000 




2377 


005662 


005001 




2378 


005664 


004737 


004152 


2379 


005670 


000207 





SUBSCOPE 

CLR R0 

CLP Rl 

JSR PCT7EMPTY 

RTS PC 



jEMPTY BUFFER AND CHECK CONTENTS 
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2380 








2361 








2382 








2383 








2384 








2385 








2386 








2387 








2388 


005672 


105737 


012724 


2389 


005676 


100022 




2390 


005700 


005037 


012324 


2391 


005704 


004737 


004026 


2392 


005710 


005237 


012324 


2393 


005714 


004737 


012260 


2394 


005720 


004737 


010766 


2395 


005724 


052777 


040001 


2396 


005732 


004737 


006574 


2397 


005736 


000775 




2398 


005740 


004737 


004152 


2399 


005744 


000137 


004260 


2400 








2401 








2402 








2403 








2404 








2405 








2406 








2407 


005750 


005^37 


012324 


2408 


005754 


004737 


004026 


2409 


005760 


005237 


012324 


2410 


005764 


004737 


012634 


2411 


005770 


004737 


0122b0 


2412 


005774 


004737 


01076b 


2413 


006000 


012737 


000007 


2414 


006006 


004737 


005bl0 


2415 


006012 


000137 


004260 



.SBTTL TEST 22 - INITIALIZE IMPLIED READ 

;AFTER PREVIOUSLY WRITING A PATTERN ON SECTOR 1 TRACK l, THIS TEST 

^CHANGES THE CONTENTS OF THE SECTOR BUFFER AND DOES A PROGRAMMED INITIALIZE, 

;AFTER WHICH THE SECTOR BUFFER MUST AGAIN CONTAIN THE DATA PREVIOUSLY 
jWPlTTEN ON THAT SECTOR AND TRACK, 

;NOTE! THIS TEST WILL ONLY WORK IF UNIT IS SELECTED AND ON LINE, 



TSTB UNITSEL 

BPL 2$ 

CLR PAT 

JSR PC»T6FILL 

INC PAT 

JSR PC»GETPATTERN 

JSR PC,ADJSUM 

BIS #PECAL,flRXCS 

JSR PCSDN 

BR IS 

JSR PCT7EMPTY 

JMP DEXIT 



.SBTTL TEST 23 - READ TEST 



»IF UNIT IS NOT SELECTED SKIP THIS TEST 



jLOAD THE SECTOR BUFFER WITH 
, RELOAD CORE BUFFER WITH l'S 



jSET THE IN1T, BIT 



jEMPTY THE SECTOR BUFFER AND CHECK IT, 
jEND OF TEST 22 



JTHIS TEST VERIFIES THAT A READ FUNCTION DOES IN FACT LOAD THE SECTOR 
JBUFFER WITH DATA READ FROM THL SELECTED ADDRESS. 



CLR PAT 

JSR PCT6FILL 

INC PAT 

JSR PCGETUNIT 

JSh PCGETpATTERN 

JSR PCADJSUM 

MOV #7, FUNCTION 

JSR PC,T21X 

JMP DEXIT 



jLOAD SECTOR BUFFER WITH 0'S 



»RELOAD CORE BUFFER WITH l'S 

;S£T UP FOP CHECK SUM 

jSET READ FUNCTION AND GO 

?ISSUE COMMAND, WAIT FOR DONE,& TEST DATA 

>END OF TEST 23 
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2416 










2417 










2418 










2419 










2420 










2421 










2422 










2423 


006016 


012737 


000002 


01 2 324 


2424 


006024 


013702 


001204 




2425 


006030 


012722 


1411526 




2426 


H06034 


012712 


000340 




2427 


006040 


004737 


007012 




2428 


006044 


000137 


004260 




2429 










2430 










2431 










2432 










2433 










2434 










2435 










2436 


006050 


012737 


00000 3 


012324 


2437 


006056 


000137 


006024 




2438 










2439 










2440 










2441 










2442 










2443 










2444 










2445 










2446 










2447 


006062 


052737 


000200 


013136 


2448 


006070 


012737 


000007 


012324 


2449 


006076 


013702 


001204 




2450 


006102 


012722 


011526 




2451 


006106 


012712 


000340 




2452 


006112 


004737 


007066 




2453 


0061 16 


042737 


000200 


013136 


2454 


006124 


000137 


004260 





.SBTTL TEST 24 - DATA TRANSFER AND VERIFICATION 

;THE PURPOSE OF THIS TEST IS TO WRITE THEN READ AND VERIFY DATA 
;0N ALL SECTORS OF THE SELECTED TRACKS. THE TfcST ALTERNATES BETWEEN 
{DRIVES ON THE SELECTED TRACKS, DATA PATTERN IS A FLOATING 0, 



T24! 
T24X! 



MOV #2, PAT 
MOV KRXVEC,R2 
MOV CINTSERV, (R2)+ 
MOV *PP7,(R2) 
JSP PODRVSWP 
J^P DEXIT 



jSET DATA PATTERN TO FLOATING 
1SET INTERRUPT ADDRESSES 



;G0 TRANSFER THE DATA 
jEfoD OF TEST 24 OR 25 



.SBTTL TEST 25 - DATA TRANSFER AND VERIFICATION VIA DELETED DATA MODE 

;THIS TEST TRANsFERES DATA JUST LIKE TEST 24 EXCEPT IT USES THE 
;DELETED DATA FORMAT AND A DATA PATTERN OF FLOATING 1, 



MOV *3, PAT 
JMP T24X 



.SBTTL TEST 26 - HEAD "HOME" TEST 



jSET DATA PATTERN TO FLOATING 1 
jGO TRANSFER THE DATA 



JTHIS TEST MOVES THE HEAD OUT TO TRACK 12 (OCTAL) AND THEN WRITES/READ CHECKS 
>ALL SECTORS (RANDOM DATA) ON EACH TRACK, THE TRACK SEQUENCE 
>IS DECREMENTED BACK TO TRACK (HOME), AFTER COMPLETING 
JDPIVE IT SWITCHES OVER TO DRIVE 1 DOING THE SAME TEST, 



BIS f»BIT7»SEQUEN 
MOV *7,PAT 
MOV KRXVECP2 
MOV »INTSERV,(R2)+ 
MOV #PR7,(R2) 
JSR PCrWTRDCK 
BIC #BIT7iSEQUEN 
JMP DEXIT 



jSPECIAL DECREMENT SEQUENCE 
iSELECT RANDOM DATA 



jEND OF TEST 26 
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2455 








2456 








2457 








2456 








2459 


006130 


104400 


016734 


2460 








2461 


006134 


012646 




2462 








2463 


006136 


104402 




2464 


006140 


006 




2465 


006141 


000 




2466 


006142 


104400 


017047 


2467 


006146 


012716 


002466 


2468 








2469 


006152 


000002 




2470 








2471 








2472 








2473 








2474 








2475 


006154 


104400 


017001 


2476 








2477 








2478 


006160 


012646 




2479 








2480 


006162 


104402 




2481 


006164 


006 




2482 


006165 


000 




2483 


006166 


104400 


017047 


2484 


006172 


012716 


002466 


2485 








2486 


006176 


000002 




2487 








2488 








2489 








2490 








2491 


006200 


013700 


001214 


2492 








2493 


006204 


105701 




2494 








2495 


006206 


100401 




2496 


006210 


005300 




2497 








2498 


006212 


006300 




2499 


006214 


006300 




2500 


006216 


006300 




2501 


006220 


0^6300 




2502 


006222 


006300 




2503 


006224 


042700 


000037 


2504 








2505 


006230 


000207 




2506 









jTHE FOLLOWING SECTION OF CODE WILL ALLOW PROVIDING INFORMATION 
?TO THE USER WHEN AN 'UNEXPECTED' BUS TIMEOUT TO LOCATION 4 OCCURS 



BUSERRS TYPE* 



MOV 



TYPOS 
.BYTE 
.BYTE 
TYPE, 
MOV 

RTI 



(SP)+,-(SP) 



6 


PCM 

#rebegin, 



»TYPE MESSAGE INDICATING AN 
^UNEXPECTED BUS TIMEOUT OCCURRED 

jjSAVE (SP) + FOR TYPEOUT 

;>SETUP TO TYPE pC WHERE TIMEOUT OCCURRED 

MGO T¥PE--OCTAL ASCII 

; jTYPE 6 DIGITS 

nSUPPRESS LEADING ZEROS 

jTYPE MESSAGE ' = PC 

jSET RETURN 'PC TO START THE 

^PROGRAM OVER AGAIN 

jRETURN TO BEGINNING OF PROGRAM 



jTHE FOLLOWING SECTION OF CODE WILL ALLOW PROVIDING INFORMATION 

JTO THE USER WHEN AN 'UNEXPECTED' RESERVED INSTRUCTION TRAp TO LOCATION 

?10 OCCURS 



PESERRJ TYPE, 



MOV 

TYPOS 
.BYTE 
.BYTE 
TYPE, 
MOV 



(SP)+,-(SP) 



PCM 

9PE6EGIN, (SP) 



RTI 



jTYPE MESSAGE INDICATING AN 

^UNEXPECTED RESERVED INSTRUCTION 

fTRAP OCCURRED 
; jSAVE (SP)+ FOR TYPEOUT 

jjSETUP TO TYPE pC WHERE RESERVED TRAP OCCURRED 
;»GO TYPE--OCTAL ASCII 
jjTYPE 6 DIGITS 
jjSUPPRESS LEADING ZEROS 

jTYPE MESSAGE ' = PC 

jSET RETURN 'PC' TO START THE 

jPROGRAM OVER AGAIN 

jRETURN TO BEGINNING OF PROGRAM 



jTHIS ROUTINE WILL CALCULATE THE PRIORITY LEVEL FOP THE PROCESSOR 

jBASED ON THE CURRENT PRIORITY LEVEL OF THE DEVICE (CONTENTS OF 'BRLEV:') 

;GET THE PROPOSED RX11 DEVICE 
jINTERRUpr PRIORITY LEVEL VALUE 
> IS CPU LEVEL TO BE THE SAME AS 
;THE DEVICE LEVEL OR 1 LESS? 
(BRANCH IF SAME AS} 
>DROp DEVICE LEVEL PRIORITY 
}BY 1 LEVEL FOR PSW 
;FORM BITS <7-5> FOR PSW 



jENSURE THAT T,N,Z,V, & C BITS 
jFOR THE PROCESSOR ARE CLEAR 
JRETURN TO MAINLINE CODE 



CPUPRl: 


MOV 


BRLEV, R0 




TSTB 


Rl 




BMI 


IS 




DEC 


R0 


IS! 


ASL 


R0 




ASL 


R0 




ASL 


R0 




ASL 


R0 




ASL 


R0 




BIC 


#37iP0 



006232 011637 006474 

00623b 062737 000002 

006244 005237 006472 

006250 001775 
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2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
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006252 
006254 
006262 
006264 
006270 
006276 
006300 

006304 
006310 
006312 
006316 
006320 
006322 
006323 
006324 
006330 
006334 
006336 
006342 
006346 
006350 
006354 
006356 
006360 
006364 
006366 
006370 
006374 
006376 
006400 
006404 
006412 
006416 



104405 
032777 
001056 
005037 
032737 
001002 
104400 

104400 
011604 
162704 
010446 
104402 
006 
001 
104400 
013746 
104403 
104400 
013746 
104403 
104400 
010246 
104403 
104400 
010046 
104403 
104400 
010146 
104403 
104400 
013737 
004537 



002526 
000400 



015636 
016120 



.SBTTL " ERROR " TRAP SERVICE ROUTINE 









XERROP: MOV P SP, epcscope 
ADD #2> EPCSCOPE 

INCERRORS! INC ERRORS 
BEG INCERRORS 



; RETURN ADDRESS FROM " ERPOR" 

; NOW (EPCSCOPE) a SUBSCOPE+2* OR SCOPE+2 



172734 
012724 



; DATA SW 13 = TO PRINT APPROPRIATE ERROR MESSAGE 



CKSWR 

BIT l*SW13,?SWR 

BNE NOPRINT 

CLP CCOUNT 

BIT #BIT8,UNITSEL 

BNE IS 

TYPE, MXEHEADER 



016641 
002532 

016641 
006556 

016641 
016641 
016641 



016641 
002530 
015600 



TYPE, MCRLF 

MOV P SP, R4 

SUB #2r R4 

MOV R4, -(SP) 

TYPOS 

.BYTE 6 

.BYTE i 

TYPE, SPACE 

MOV FAST, -(SP) 

TYPON 

TYPE, SPACE 

MOV PCSCOPE, -(SP) 

TYpON 

TYPE, SPACE 

MOV R2» -(SP) 

TYPON 

TYPE, SPACE 

MOV R0, -(SP) 

TYPON 

TYPE, SPACE 

MOV Rl, -(SP) 

TYPON 

TYPE, SPACE 

MOV PASS, 2$ 

JSR R5,SGLDEC 

OPEN 



;WAS PREVIOUS ERROR REPORTED ON THIS PASS 

j ERADR 

j FAST (FIRST ADDRESS OF SELECTED TEST) 

! FAPT (FIRST ADDRESS OF PRESENT TEST) 

j BLANK 

» EXPECTED (GOOD) RESULT OF TEST 

j ACTUAL (BAD) RESULT OF TEST 
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2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 



00642k) 
006426 



006432 
006434 
006442 
006444 
006446 

006450 
006452 
00646*5 
006462 
006466 



052737 
004737 



104405 
032777 
001401 

000000 
000002 

104405 
032777 

001002 
104400 
000207 



006470 000007 



006472 
006474 



000400 
006450 



100000 172554 



000001 
006470 



000000 

000000 



TO RING BELL AT ERROR 



NOPRINT: BIS #BIT8,UNITSEL 
JSP PC, DING 



jSET HARD ERROR FLAG 



; DATA Sfc 15 
IS: 



I TO HALT AT ERROR 



2S: 

DING: 



is: 

MABELLi 



CKSWR 

BIT #SW15,0SWR 

BEQ 2$ 

HALT 

PTI 

CKSWR 

BIT »Srf0,eSWR 

bNE IS 

TYPE ,MABELL 

RTS PC 

.ASCIZ <07> 
.EVEN 



ERRORS: 
EPCSCOPE; 



^lllir 



006476 
006502 



MAINDEC-il-DZRXB- 
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2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 

2595 006504 

2596 006510 

2597 006514 
2598 

2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
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006516 
006522 
006524 



005737 

001015 



005037 
011637 
000002 



0H5737 

001001 

000002 



006526 
006532 
006534 



006536 
006540 
006546 
006550 
006554 
006556 



006472 
006556 



006472 



021637 

001401 
000002 



104405 
032777 
001756 
013716 

000002 

000000 



XSCOPE: 



004000 
006556 



,SBTTL " SCOPE 



TST ERRORS 
BNfc". SCOPING 



TRAP SERVICE ROUTINE 
H SCOPE " 



j NO ERRORS HAVE BEEN DETECTED 

? JUST SET (PCSCOPE) = FIRST ADDRESS OF THE SCOPE LOOP 

; (IN CASE ERRORS ARE DETECTED LATER) 

NOSCOPE! clr errors 

MOV SP, PCSCOPE 
RTI 

? " SUBSCOPE " 

XSUBSCOPE: TST ERRORS 
BNE IS 
RTI ; NO ERRORS EXIST 

} ERRORS DO EXIST 

; IF THIS ERROR ADDRESS IS THE SAME ADDRESS WITHIN PROGRAM LOCATION 

; THEN THIS IS A SCOPING LOOP 

; IF NOT - THEN EXIT 

IS: CMP P SP, EPCSCOPE 
BEO SCOPING 
PTI 

; SW 1 1 = 1 TO LOCK ON SCOPING LOOP 

J THIS IS A SCOPING LOOP 

SCOPING: CKSWR 

BIT »SW11,9SWR 

BEO NOSCOPE 

MOV PCSCOPEi @ SP 

RTI 
PCSCOPEi 



EPCSCOPE" 



jDO NOT LOOP ON ERROR 
j LOCK FOR SCOPE LOOP 



% <-l:M 
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2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 



006560 105777 172422 

006564 100002 

006566 062716 000002 

006572 000207 



006574 
006602 
006604 
006612 
006616 
006620 



032777 
001055 
062737 
005537 
001401 
000207 



j WAIT FOR TRANSFER REQUEST FLAG TO SET 

STR! TSTB 9 RXCS 

BPL RTSPC 

ADD #2r @ SP 
RTSPC: RTS PC 



; ADJUST FOR EXIT 



006622 104000 



; WAIT FOR THE DONE FLAG TO SET 

000040 172404 SDNI BIT »HIT5# 3 RXCS 
BNE XSDN 
006756 ADD #1, HANGER 

ADC HANGPL 
bEQ HUNGUP 
RTS PC 

; THE DEVICE TEST IS HUNG - DONE HAS NOT SET 

; (R0) a n/a ; (PI) = N/A ? (R2) = n/a 

HUNGUP! ERROR 



; TEST THE DONE BIT # 5 



2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 



|/*\t/*\|/«\l/*\j/*\l/»V|/*\j/*\:/*\:/*\j/»\l/»\j/*\j/*\:/*\!/#\!/*\;/*Vj 

j/»\i/»\;/#\!/*\j/*\i/*\t/*\|/*\:/*\:/*\!/*\:/»\t/*\i/#\t/*\»/*\i/*\!/#\! 

> 

1 IF THE DIAGNOSTIC HITS THIS ERROR REPORT AND THE 'HUNG @ PC' 

j LOCATION Is WITHIN ONE OF THE TESTS TABULATED BELOW THEN THE 

J POSSIBLE CHIPS APE AS FOLLOWS! 

I 

HUNG TEST POSSIBLE CHIPS 



» 

J TEST 

; TEST 

J TEST 



006624 
006630 
006636 
006640 
006646 
006650 
006654 



006660 
006664 
006666 
006667 
006670 



5 ( PART 1 ) 
5 ( PART 2 ) 
6 



E7,E34#E4#E22f El5»Eif E11#E37 

E7,E34,E2,fcl4,E6iEl,E37,E8 

U,F15,E1,E19,E18,E22 



\*/|\*/r\»/|\*/!\*/!\#/!\*/;V*/!\*/!\#/l\»/S\*/j\*/5\»/l\*/:\»/|\* 

\*/!\#/!\#/j\#/!\#/!\#/:\»/:\*/:\*/!\*/!\*/j\»/i\«/{\»/{\#/:\*/j\# 

\*/!\»/!\*/!\*/!\*/!\*/!\*/:\*/!\*/;\#/!\#/j\*/:\*/:\#/!\*/:\#/S\* 



005037 006756 

012737 177740 006760 

104405 

032777 02000* 172350 

001402 

000137 002162 

104400 00b674 



162716 000002 
104402 

006 

001 

000137 002162 



CLR HANGER 
MOV *177740, HANGPL 
CKSWR 

BIT *SW]3,0SWR 
BEQ IS 

JMp MORETESTS 
S! TYPE, MHUNGPC 

THE PC IS ALREADY ON THE STACK 

SUb #2, ? SP 

TYPOS 

.BYTE 6 

.BYTE 1 

JMR MORETESTS 



JRESET THE HANG COUNTERS 



MAINDEC-11-DZRXB-E MACYll 27(732) 16-MAR-76 15!55 PAGE 60 

DZRXBE.PH " SCOPE " TRAP SERVICE ROUTINE 



2683 














2684 


006674 


005015 


042504 


044526 


MHUNGPC 


J .ASCIZ <15><12>"DI 


2685 


006702 


042503 


052040 


051505 






2686 


006710 


020124 


052510 


043516 






2687 


006716 


040040 


050040 


020103 






2688 


006724 


000 










2689 


006725 


040 


040520 


051523 


MPASS! 


.ASCIZ " PASS = H 


2690 


006732 


036440 


000 








2691 




006736 








.EVEN 


2692 














2693 


006736 


005037 


006756 




XSDN j 


CLP HANGER 


2694 


006742 


012737 


177740 


006760 




MOV #177740, HANGPL 


2695 


006750 


062716 


000H02 






ADD »2, SP 


2696 


006754 


000207 








RTS PC 


2697 


006756 


000000 






HANGER! 





2698 


006760 


177740 






HANGPL: 


177740 



J UPDATE FOR EXIT 
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2699 










.SBTTL 


DRIVE TEST SELECTION 




2700 
















2701 










{DO A 1 


READ ONLY FUNCTION ON ALL SECTORS, 




2702 










{THIS 1 


30ES NOT VERIFY THE DATA, ONLY TESTS FOR CRC ERRORS, 


; ;: m 


2703 














) 


2704 


006762 


004737 


012752 


HDONLY! 




JSR PCINITTRACKS 


\<¥ 


2705 


006766 


004737 


012634 






JSR PCGETUNIT 




2706 


006772 


004737 


013104 


1st 




JSP PCGETTRACK 




2707 


006776 


004737 


010014 






JSR PCfREAD 




2708 


007002 


005337 


013124 






DEC TRKCNTP 




2709 


007006 


001371 








BNE IS 




2710 


007010 


000207 








RTS PC 




2711 
















2712 








; j »»*#****#»*#***#***##*»***»*#*#*###»*##*###**#*##****##**####*# 




2713 
















2714 










;WRITE 


AND READ DATA ON SPECIFIED TRACK AND ALTERNATE 




2715 










{DRIVES BEFORE GOING TO THE NEXT TRACK, 




2716 
















2717 


007012 


004737 


012260 


DRVSWPj 




JSR PCGETPATTERN 




2718 


00701b 


004737 


012752 






JSR PCINITTRACKS 




2719 


007022 


004737 


012634 


1$: 




JSR PCGETUNIT 




2720 


007026 


004737 


013104 






JSR PCGETTRACK 




2721 


007032 


004737 


007J34 






JSP PC, WRITE 




2722 


007036 


004737 


010634 






JSR PCREADCHK 




2723 


007042 


004737 


012634 






JSR PCGETUNIT 




2724 


007046 


004737 


007134 






JSR PCWRITE 




2725 


007052 


004737 


010634 






JSR PCREADCHK 




2726 


007056 


005337 


013124 






DEC TPKCNTR 




2727 


007062 


001357 








BNE IS 




2728 


007064 


000207 








RTS PC 




2729 
















2730 








; ) #*#*##**#*#****###*##*###*#*##*####*###**####*##»*#######*»#### 




2731 
















2732 










jWRITE 


ALL SECTORS AND READ/VERIFY ALL SECTORS 




2733 
















2734 
















2735 


007066 


004737 


012260 


WTRDCKI 




JSR PCGETPATTERN 


Xft,-.. 


27 36 


007072 


004737 


012752 


XWTRDCK; 




JSR PCINITTRACKS 


Ill 


2737 


007076 


004737 


U12634 






JSR PCGETUNIT 


2738 


007102 


004737 


013104 


is: 




JSR PCGETTRACK 


w 


2739 


007106 


004737 


007134 






JSP PCWRITE 




2740 


007112 


004737 


010634 






JSR PCREADCHK 




2741 


007116 


005337 


013124 






DEC TRKCNTP 




2742 


007122 


iJ01367 








BNE IS 




2743 


007124 


004737 


012726 






JSR PCDONE {HAVE BOTH DRIVES BEEN TESTED 




2744 


007130 


0tf0207 








RTS PC J YES 




2745 


007132 


000757 








BR XWTRDCK ;NO, GO TO OTHER UNIT 
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liiitit 
lllf 



2746 










.SbTTL 


WRITE FUNCTION 


2747 














2748 


007134 


004737 


013324 




write: 


JSR PC, INITSECTOR 


2749 


007140 


004737 


013422 




XwRlTEs 


JSP PCGETSECTOR 


2750 


007144 


0047 37 


010766 




FILLBUF; 


JSR PCADJSUM 


2751 


007150 


012746 


007332 






MOV #FILLDONE,-(SP) 


2752 


007154 


012746 


007222 






MOV *FILLER,-(SP) 


2753 


007160 


005037 


011452 






CLR BYTECNTR 


2754 


007164 


005046 






CLR 


-(SP) 


2755 


007166 


012746 


007174 




MOV 


HS,-(SP) 


2756 


007172 


000002 






RTI 




2757 


007174 


012777 


000101 


172H04 


IS! 


MOV »FBIE#PRXCS 


2758 


007202 


105777 


172000 




FILLFLAG; 


TSTB GRXCS 


2759 


007206 


100375 








BPL FILLFLAG 


2760 


007210 


112077 


171774 




xfhbyte: 


MOVB (R0)+,0RXDB 


2761 


007214 


005237 


011452 






INC BYTECNTR 


2762 


007220 


000770 








BR FILLFLAG 


2763 














2764 


007222 


005726 






filler: 


TST (SP) + 


2765 


007224 


012737 


016366 


007266 




MOV *MFIL,PTYPW2 


2766 


007232 


012737 


007140 


007330 




MOV #XWRlTE,pCONT+2 


2767 


007240 


012737 


007144 


007324 




MOV #FILLBUF,PLOOp+2 


2768 


007246 


000137 


007252 






JMP PARTEST 


2769 














2770 


007252 


104405 






PARTEST; 


CKSWR 


2771 


007254 


032777 


020000 


171734 




BIT *5W13,<aSWR 


2772 


007262 


001006 








BNE CONT4 


2773 


007264 


104400 


000000 




PTYPlj 


TYPE ,OPEN 


2774 


007270 


104400 


016577 






TYPE ,MPAR 


2775 


007274 


104400 


016120 






TYPE ,MCRLF 


2776 


007300 


104405 






CONT4: 


CKSWR 


2777 


007302 


005777 


171710 






TST gSWR 


2778 


007306 


100001 








BPL CONT13 


2779 


007310 


000000 






HLT6i 


HALT 


2780 


007312 


032777 


004000 


171676 


CONT13: 


BIT #SW11,9SWR 


2781 


007120 


001402 








BEQ PCONT 


2782 


007322 


000137 


007144 




PLOOPI 


JMP FILLBUF 


2783 


007326 


000137 


010132 




PCONT! 


JMp NEXTRD 


2784 














2785 


007332 


005037 


006756 




FILLDONEl 


CLR HANGER 


2786 


007336 


012746 


007430 






MOV #WRTDONE,»(SP) 


2787 


007342 


012746 


007444 






MOV #WRTER,-(SP) 


2788 


007346 


112737 


000105 


007702 




MOVB »WRTIE, FUNCTION 


2789 


007354 


022737 


006050 


006556 




CMp #T25,PCSCOp£ 


2790 


007362 


001003 








BNE IS 


2791 


007364 


112737 


000115 


007702 




MOVB #WTDDIE, FUNCTION 


2792 


007372 


004737 


007634 




is: 


JSR PCCOMMWORD 


2793 


007376 


005046 






CLR 


-(SP) 


2794 


007400 


012746 


007406 




MOV 


#2$,-(SP) 


2795 


007404 


000002 






RTI 




2796 


007406 


032777 


000040 


171572 


2$: 


BIT #DONEBIT,$RXCS 


2797 


007414 


001774 








BEQ 28 


2798 


007416 


005237 


006756 




3$: 


INC HANGER 


2799 


007422 


001375 








BNE 3$ 


2800 


007424 


000137 


011462 






JMp NOINTER 



{SET UP FIRST, LAST, AND SECTOR COUNTER 

{PICK UP NEXT SECTOR 

{ADJUST DATA BUFFER AND CHECK SUM FOR ADDRESSES 

JPUT GOOD RETUPNON STACK 

{PUT ERROH RETURN ON STACK 

JLOWEP 'CPU' LEVEL 

{SET RETURN 'PC 

{GET 'CPU' LEVEL INTO 'PSW' 

{EXECUTE FILLBUFER COMMAND 

;TEST FOR TRANSFER REQUEST *LAG 

{TRANSFER DATA BYTE 

{WAIT FOR NEXT TR FLAG 

;REMOV£ THE DONE RETURN FROM THE STACK 

{PUT ADDR OF FILLBUF MESSAGE IN PAR ERR TYpUUT 1 

J IF NO LOOp ON ERROR GO TO NEXT SECTOR 

;IF LOOP ON ERROR RETURN THROUGH PLOOP 

{PRINT OUT PAR ERR AND TEST CONDITIONS FOR RETRY 



{TEST DON'T PRINT ERROR SWITCH 
{PRINT THE PARITY ERROR MESSAGE 



{TEST HALT ON ERROR SWITCH 

{HALT ON .ERROR 

{TEST LOOP ON ERROR SWITCH 

{IF NOT SET GO TO NEXT SECTOR 

{RETURN TO LOOP ON TEST THROUGH HERE 

{GO TO NEXT SECTOR THROUGH HERE 



{SET GOOD RETURN ON STACK 
{SET ERROR RETURN ON STACK 
{SET FUNCTION WORD TO WRITE 
{IS THIS THE DELETED DATA TEST 



{TRANSFER COMMAND TO DRIVE 

{LOWER 'CPU' LEVEL 

{SET RETURN 'PC' 

{GET 'CPU' LEVEL INTO 'PSW' 

{WAIT FOR DONE 

{WAIT FOR INTERRUPT 

{NO INTERRUPT ERROR 
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2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2B17 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 



007430 005337 

007434 001001 

007436 000207 

007440 000137 

007444 005726 

007446 032737 

007454 001413 

007456 012737 

007464 012737 

007472 012737 

007500 000137 



007504 012737 



007512 
007520 
007524 

007526 
007530 
007536 
007540 
007544 
007550 
W07552 
007556 
007560 
007562 
007566 
007570 
007576 
007600 
007602 

007606 
007612 
007616 
007622 
007624 
007625 
007626 
007632 



WPTDQNEl 



DEC SECCNTR 
BNE 23 
RT8 PC 
JMP XWPITE 



jTEST SECTOR COUNTER 

jNOT LAST SECTOR GO TO NEXT ONE 



016570 007266 

007430 007330 

007332 007324 
007252 



TST CSPJ+ ^REMOVE THE DONE RETURN FROM THE STACK 

BIT *BIT1,ASTAT ;IS THIS A PARITY ERROR 

BEQ WRTSEK jNO, IT MUST BE A SEEK ERROR 
jPARITY ERROR DURING A WRITE FUNCTION 

MOV «MWRITE,PTYP1*2 »PUT ADDR OF WRITE MESSAGE IN PAR ER TYPOUT 1 

MOV #WRTDONE,PCONT+2 j IF NO LOOp GO TO NEXT SECTOR 

MOV »FILLDONE,PLOOp+2 ; IF LOOP RETURN THROUGH pLOOp TO REWRITE 

JMp PARTEST »GO INC LOG AND TEST FOR RETRY 



012737 
004737 
000741 

104405 
032777 
001004 
104400 
004737 
104405 
005777 
100001 
000000 
004737 
104405 
032777 

001001 

000207 
000137 

104400 
104400 
013746 
104402 
003 

000 

10440b) 
000207 



7144 007604 WRTSEKi 



016570 007542 
007526 



jSEEK ERROR DURING A WRITE FUNCTION 



020000 171460 



016570 
007606 



007706 

004000 171420 



016555 
016032 
013130 



STYPlt 
SWHLTll 



HLT7: 
C0NT14I 



MOV 
TYPOS 
.BYTE 
.BYTE 



MOV #FILLBUF,SEKRTY+2 



MOV #M*RlTE,STYPl+2 
JSR PC#SEEKER 
BR WRTDONE 

CKSWR 

BIT #SW13#9SWR 

BNE SWHLT1 

TYPE »MWRITE 

JSR PCSEKTYP 

CKSWR 

TST £SWR 

BPL C0NT14 

HALT 

JSP PC, HOME 

CKSWR 

bit iswu,eswp 

BNE SEKRTY 

RTS PC 

JMp FILLBUF 



jSETUP FOR WRT RETRY ON SEEK ERROR 

I (AFTER A PECAL. THE CONTENTS OF SECTOR 1, 

»TRACK 1 ARE LOADED INTO THE SECTOR BUFFER, 

fTO REWRITE THE CORRECT DATA THE PROGRAM 

jMUST REFILL THE SECTOR BUFFER, 

jPUT ADDR OF WRITE MESSAGE IN SEEK ER TYPEOUT 1 

JRECORD SEEK ERROR 

jGO TO NEXT SECTOR CAN'T FIND THIS UNE 



jCHECK DON'T PRINT ERROR SWITCH 
jPRINT WRITE (READ) SEEK ERROR 



•TEST THE HALT ON ERROR SWITCH 



jHALT ON THE ERROR 
jRECALIBpATE ON SEEK ERRORS 



JCHECK THE LOOP ON ERROR SWITCH 

JIF SET LOOP ON THE ERROR THROUGH SEEK RETRX, 



jRETRY WRITE COMMAND (READ COMAND) 



TYPE ,MSEEK 
TYPE ,MPRES 
PRESTRK, -(SP) 



TYPE ,MCRLF 
RTS PC 



jTYPE SEEK ERROR 

JTYPE ADDRESS OF TRACK MOVED FROM 
; > SAVE PRESTRK FOR TYPEOUT 
jjGO TYPE--OCTAL ASCII 
;jTYPE 3 DIGIT(S) 
jjSUPPRESS LEADING ZEROS 
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2850 


007b34 


153737 


012724 


007702 


COMMWORD: 


2851 


007642 


013777 


007702 


171336 




2852 


007650 


004737 


006560 




1$: 


2853 


007654 


000775 








2854 


007656 


113777 


013416 


171324 




2855 


007664 


004737 


006560 




2s: 


2856 


007670 


000775 








2857 


007672 


113777 


013126 


171310 




2858 


007700 


000207 








2859 












2860 


007702 


000000 






function: 


2861 


007704 


000000 






DATACKI 


2862 












2863 


007706 


104405 






HOMEI 


2864 


007710 


032777 


000400 


171300 




2865 


007716 


001035 








2866 


007720 


012777 


040001 


171260 




2867 


007726 


004737 


006574 




2$I 


2868 


007732 


000775 








2B69 


007734 


005777 


171246 






2870 


007740 


100021 








2871 


007742 


104405 








2872 


007744 


032777 


020000 


171244 




2873 


007752 


001002 








2874 


007754 


004737 


012152 






2875 


007760 


104405 






1$: 


2876 


007762 


005777 


171230 






2877 


007766 


100001 








2878 


007770 


000000 








2879 


007772 


032777 


004000 


171216 


3$: 


2880 


010000 


001342 








2881 


010002 


000207 








2882 


010004 


012737 


000001 


013130 


XHOMEI 


2883 


010012 


000207 






rtn: 


2884 
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BISB UNITSEL, FUNCTION 

MOV FUNCTION, »RXCS 

JSR PC#STP 

BR IS 

MOVB TSECTOP,9RXDB 

JSR PCSTR 

MOVB TARGET, 9RXDB 
RTS PC 



CKSWR 

BIT #SW8,I?SWR 

BNE RTN 

MOV »RECAL,@PXCS 

JSR PCSDN 

BR 2$ 

TST HRXCS 

BPL XHOME 

CKSWR 

BIT #BIT13,9SWR 

BNE IS 

JSR PCRDCODE 

CKSWR 

TST SSWR 

BPL 3$ 

HALT 

BIT #SW11,0SWR 

BNE HOME 

RTS PC 

MOV #1, PRESTRK 

RTS PC 



}SET UNIT SELECTION BIT IN COMMAND WORD 
jSEND OUT COMMAND TO DRIVE 
JWAIT FOR TK FLAG 

jSEND OUT TARGET SECTOR 
»WAIT FOR TR FLAG 

jSEND OUT TARGET TRACK 

jDATA CHECK ON CRC ERROR FLAG 

jTEST NO RECAL SWITCH 
JISSUE RECAL FUNCTION 



J WAS THERE AN ERROR 
jNO 



>YES, SHOULD IT BE PRINTED 
jNO 



jTEST HALT ON ERROR SWITCH 
fTEST LOOP ON ERROR SWITCH 
ISET THE PRESENT TRACK TO TRACK I 
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2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
29!9 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 



,SBTTL READ DATA FROM THE DISKETTE 



010014 
010020 
010024 
010030 
010034 
010040 
010044 
010052 
010056 
010060 
010064 
010066 
010074 
010076 
010102 
010104 

010110 

010116 
010120 
010124 
010126 
010130 
010132 
010136 
010140 

010142 
010144 
010152 

010154 
010162 
010170 
010176 

010202 
010210 

010212 
010220 
010226 
010232 



004737 
004737 
005037 
005037 
012746 
012746 
112737 
004737 
005046 
012746 
000002 
032777 
001774 
005237 
001375 
000137 

022737 
001405 
004737 
005701 
100001 
000207 
005337 
001330 
000207 

005726 
032737 
001413 

012737 
012737 
012737 
000137 
032737 
001011 

012737 
012737 
004737 
000737 



013324 
013422 
007704 
006756 

010110 

010142 
000107 
007634 

010066 

000040 

006756 

011462 

005462 

010410 



READ! 

XPEAD: 

REREAD! 



016530 
010024 
010132 
007252 
000001 



010024 
016530 
007526 



CLP 
MOV 
RTI 



171112 IS: 

2s: 



006556 PDDONE: 



JSP PCr INITSECTOR 

JSP PCGETSECTOR 

CLP DATACK 

CLR HANGER 

MOV »RDDONE,-(SP) 

MOV 8RDERR,«(SP) 

MOVB #RDI£, FUNCTION 

JSR PCrCOMMWORD 

-CSP) 

llSi-CSP) 

BIT »D0NEBIT,SRXCS 

BEQ 1$ 

INC HANGER 

BNE 2$ 

JMP NOINTER 

CMP #T20fPCSCOPE 

BEQ NEXTRD 

JSR PC.DDCHK 

TST Rl 

BPL NEXTRD 

RTS PC 

DEC SECCNTR 

BNE XREAD 

RTS PC 



jCLEAR CRC DATA CHECK FLAG 



;SET GOOD RETURN ON STACK 

»SET READ ERROR RETURN ON STACK 



lLOWER 'CPU* LEVEL 

;SET RETURN 'PC 

jGET 'CPU' LEVEL INTO 'PSW 

JWAIT FOR DONE BIT 

JWAIT FOR INTERRUPT 

jNO INTERRUPT ON DONE 

JIS THIS THE READ ONLY TEST CT20) 
jYES, DON'T CHECK FOR DELETED DATA 
fCHECK FOR DELETED DATA INDICATOR 
|BIT 15 OF Rl IS READ 1 SECTOR FLAG 

;IF SET, GO VERIFY DATA JUST READ 
jREAD FUNCTION IS DONE 



000002 01214b 



00726b 
007324 
007330 

012146 IS: 



007604 
007542 



TST (SP)+ >REMOVE THE DONE RETURN FROM THE STACK 

BIT #BIT1,ASTAT »IS THIS A PARITY ERROR 

BEQ IS ;NO, SEE IF ITS A CRC ERROR 

JPARITY ERROR DURING A READ FUNCTION 

MOV #MREAD,PTYPl+2 jPUT ADDp OF READ MESSAGE IN PAR EHR TKPEOUT 1 

MOV #REPEAD,PLOOp+2 jIF LOOP ON ERROR LOOP THROUGH PLOOp 

MOV »NEXTRD,PCONT+2 ; IF NO LOOP GO TO NEXT READ 

JMP pARTEST jRECORD pARlTY ERROR AND RETRY FUNCTION 

BIT SBIT0,A5TAT >IS THIS A CRC ERROR 

BNE CRCER jYES GO TEST AND LOG IT 

;SEFK ERROR DURING A READ FUNCTION 

MOV #REREAD,S£KRTY+2 »SET SEEK CONTINUE FOR READ RETRY 

MOV *MR£AD,STYPW2 ;S£T ADDR OF READ MESSAGE IN SEEK ER TYPEOUT 1 

JSR PC, SEEKER jRECORD SEEK ERROR 

BR NEXTRD j GO TO NEXT SECTOR, CAN'T READ THIS ONfc 
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2930 
2931 
2932 












jCPC ERROR DETECTED WH] 


010234 


005701 






CKEPl 


TST Rl 


2933 


01023b 


100034 








BPL DATACRC 


2934 


010240 


005237 


007704 






INC DATACK 


2935 


010244 


004737 


010644 






JSR PC#EMPBUFF 


2936 


010250 


005737 


011460 






TST ERCNTR 


2937 


010254 


001025 








BNE DATACRC 


2938 


010256 


104405 








CKSWR 


2939 


010260 


032777 


020000 


170730 




BIT #SW13#«SWP 


2940 


010266 


001004 








BNE 2S 


2941 


010270 


104400 


016500 






TYPE ,MBADCRC 


2942 


010274 


104400 


016120 






TYPE ,MCRLF 


2943 


010300 


104405 






2s: 


CKSWR 


2944 


010302 


005777 


170710 






TST 3SWR 


2945 


010306 


100001 








BPL C0NT15 


2946 


010310 


000000 






HLT10: 


HALT 


2947 


010312 


032777 


004000 


170676 


CONT15: 


BIT #SWH,GSWR 


2948 


010320 


001001 








BNE 3S 


2949 


010322 


000703 








BR NEXTRD 


2950 


010324 


000137 


010024 




3s: 


JMP REREAD 


2951 














2952 












jDATA CRC EPROR 


2953 














2954 


010330 


104405 






DATACRC: 


CKSWR 


2955 


010332 


032777 


020000 


170656 




BIT #SW13,PSWR 


2956 


010340 


001004 








BNE 4S 


2957 


010342 


104400 


016536 






TYPE »MCRC 


2958 


010346 


104400 


016120 






TYPE ,MCRLF 


2959 


010352 


104405 






4$: 


CKSWR 


2960 


010354 


005777 


170636 






TST 0SWR 


2961 


010360 


100001 








BPL C0NT16 


2962 


010362 


000000 






HLT12: 


HALT 


2963 


010364 


032777 


004000 


170624 


CONT16: 


BIT #SW11,@SWR 


2964 


010372 


001004 








BNE 5S 


2965 


010374 


062706 


000002 






ADD #2,5P 


2966 


010400 


000137 


010132 






JMP NEXTRD 


2967 


010404 


000137 


010024 




5$: 


JMP REREAD 


2968 














2969 















READING 

;IF READ ONLY, REPORT DATA CRC ERROR 

JSET DATA CHECK FLAG 
JCHECK FOR A DATA ERROR 
:WAS THERE A DATA ERROR 
;YES, REPORT IT 

»TEST DON'T PRINT SWITCH 

JTYPE CRC GENERATOR ERROR 

jTEST HALT ON ERROR SWITCH 

,'HALT ON ERROR 

jCHECK LOOP ON ERROR SWITCH 

JDON'T LOOP GO TO NEXT SECTOR 
>LOOP ON TEST, 



jTEST DON'T PRINT ERROR SWITCH 
;TYPE DATA CRC ERROR 

JTEST HALT ON ERROR SWITCH 

>HALT ON ERROR 

jTEST LOOP ON ERROR 

J IF SET LOOP ON THE TEST 

;REMOVE READ DONE ADDRESS FROM STACK 

>READ NEXT SECTOR CAN'T READ THIS ONE 

»NO,GO REREAD THIS SECTOR 
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2970 


010410 


022737 


006050 


006556 


DDCHKj 


2971 


010416 


001041 








2972 


010420 


132737 


000100 


012146 




2973 


010426 


001056 








2974 


010430 


104405 








2975 


010432 


032777 


020000 


170556 




2976 


010440 


001013 








2977 


010442 


004737 


010566 






2978 


01044b 


104400 


015747 






2979 


010452 


052737 


000400 


012724 


DDERR: 


2980 


010460 


004737 


012050 






2981 


010464 


104400 


016120 






2982 


010470 


104405 






CONT11 J 


2983 


010472 


005777 


170520 






2984 


010476 


100001 








2985 


010500 


000000 






HLT13: 


2986 


010502 


032777 


004000 


170506 


C0NT17: 


2987 


010510 


001402 








2988 


010512 


000137 


010024 






2989 


010516 


000137 


010132 




4s: 


2990 


010522 


032737 


000100 


012146 


CONT10J 


2991 


010530 


001415 








2992 


010532 


052737 


000400 


012724 




2993 


010540 


104405 








2994 


010542 


032777 


020000 


170446 




2995 


010550 


001347 








2996 


010552 


004737 


01056b 






2997 


010556 


104400 


015721 






2998 


010562 


000733 








2999 


010564 


000207 






RETURN: 


3000 












3001 












3002 


010566 


104400 


016123 




EPMSGl 


3003 


010572 


013746 


006556 






3004 


010576 


104402 








3005 


010600 


006 








3006 


010601 


000 








3007 


010602 


104400 


006725 






3008 


010606 


013737 


002530 


010b20 




3009 


010614 


004537 


015b00 






3010 


010620 


000000 






IS: 


3011 


010622 


104400 


016120 






3012 


010626 


004737 


006450 






3013 


010632 


000207 








3014 












3015 
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CMP #T25,PCSCOpE 

BNE CONT10 

BITB #BIT6,ASTAT 

BNE RETURN 

CKSWR 

BIT *SW13,9SWR 

BNE CONT11 

JSP PC,ERMSG 

TYPE ,MDDM1S 

BIS »BIT8,UNITSEL 

JSP PCTYPADR 

TXPE ,MCRLF 

CKSWR 

TST 9SWR 

BPL CONT17 

HALT 

BIT *SWH,0SWR 

BEQ 48 

JMp REREAD 

JMP NEXTRD 

BIT «BIT6,ASTAT 

BEQ RETURN 

BIS #BIT8#UNITSEL 

CKSWR 

BIT «SWU*PSWR 

BNE CONT11 

JSR PCfERMSG 

TYPE ,MUNXDD 

BR DDERR 

RTS PC 



MOV 
TYPOS 
.BYTE 
.BYTE 



jlS THIS TEST 25 



ITHIS IS TEST 25 

JDD BIT SHOULD BE SET 



iTEST DON'T PRINT ERROR SWITCH 



»TYPE MISSING DELETED DATA BIT 
j SET HARD ERROR FLAG 
jTYPE ADDRESS OF ERROR 



jTEST HALT ON ERROR SWITCH 

,HALT ON DELETED DATA ERROR 

jTEST LOOP ON ERROR 

;LOOP ON TEST 

jREAD NEXT SECTOR 

>THIS IS NOT A DELETED DATA TRANSFER 

fSET HARD ERROR FLAG 

{TEST DON'T PRINT ERROR SWITCH 

jTYPE UNEXPECTED DELETED DATA BIT 



) 



TYPE ,MERHEADER 
PC5C0PE>-C3P) 



TYPE ,MPASS 
MOV PASS/IS 

JSP P5,SGLDEC 

OPFN 

TYPE ,MCRLF 

JSP PC, DING 

RTS PC 



,'lSAVE PCSCOPE FOR TYPEOUT 
;>GO TYPE--OCTAL ASCII 
JJlYPE 6 DIGITS 
jjSUPPRESS LEADING ZEROS 
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3016 












.SBTTL 


READ 


AND VERIFY DATA 


3017 


















3018 












jREAD I 


l SECTOR, EMPTY THE SECT' 


3019 












jTHF. DATA READ AGAINST CORE Di 


3020 


















3 021 


010634 


052701 


100000 




READCHKl 




BIS 


#RIT15,R1 


3022 


010640 


004737 


010014 








JSR 


PC, READ 


3023 


010644 


005737 


013414 




EMpBUFFj 




TST 


SECCNTP 


3024 


010650 


001002 










BNE 


IS 


3025 


010652 


000137 


011446 








JMP 


EXIT 


3026 


010656 


005037 


011452 




1 s : 




CLR 


8YTECNTR 


3027 


010662 


005037 


011460 








CLP 


ERCNTR 


3028 


010666 


052701 


000200 








BIS 


8BIT7,R1 


3029 


010672 


004737 


010766 








JSP 


PC»ADJSUM 


3030 


010676 


005037 


011056 








CLR 


CKSUM 


3031 


010702 


012746 


011306 








MOV 


*EMPDONE,-(SP) 


3032 


010706 


012746 


011060 








MOV 


*EMPER,-(SP) 


3033 


010712 


005046 








CLP 


-(SP) 


3034 


010714 


012746 


010722 






MOV 


12$, 


-(SP) 


3035 


010720 


000002 








RTI 






3036 


010722 


012777 


000103 


170256 


2S: 




MOV 


#EBIE,faRXCS 


3037 


010730 


105777 


170252 




EMpFLAG: 




TSTB BRXCS 


3038 


010734 


100375 










BPL 


EMPFLAG 


3039 


















3040 


010736 


117737 


170246 


011454 


CKbYTE: 




MOVE 


J 9RXDB,BA0BYTE 


3041 


010744 


063737 


011454 


011056 






ADD 


BADBYTE, CKSUM 


3042 


010752 


123720 


011454 








CMPB BADBYTE,(R0)+ 


3043 


010756 


001054 










BNE 


DATAER 


3044 


010760 


' 005237 


011452 








INC 


BYTECNTR 


3045 


010764 


000761 










BR EMPFLAG 


3046 


















3047 


010766 


113737 


013126 


017404 


ADJSUMi 




MOVB TARGET, BUFADR 


3048 


010774 


113737 


013416 


017405 






MOVB TSECT0R,BUFADR+1 


3049 


011002 


013737 


012536 


011056 






MOV 


SUMiCKSUM 


3050 


011010 


063737 


013126 


011056 






ADD 


TARGET, CKSUM 


3051 


011016 


063737 


013416 


011056 






ADD 


TSECTOR, CKSUM 


3052 


011024 


113737 


011056 


017602 






MOVB CKSUM,BUFADR+176 


3053 


011032 


106337 


011056 








ASLB CKSUM 


3054 


011036 


105437 


011056 








NEGB CKSUM 


3055 


011042 


113737 


011056 


017603 






MOVB CKSUM, BUFADR+177 


3056 


011050 


012700 


017404 








MOV 


#BUFADR,R0 


3057 


011054 


000207 










RTS 


PC 


3058 


















3059 


011056 


000000 






CKSUMt 









3060 


















3061 


011060 


005726 






EMPER! 




TST 


(SP) + 


3062 


011062 


012737 


016402 


007266 






MOV 


#MEMpTY,PTYPl+2 


3063 


011070 


012737 


010644 


007324 






MOV 


#EMpBUFF,PL00P+2 


3064 


011076 


012737 


011430 


007330 






MOV 


#NXREAD,PC0NT+2 


3065 


011104 


000137 


007252 








JMp 


PARTEST 


3066 



















jSET READ ONE SECTOR FLAG 

jGO READ ONE SECTOR 

j IF CLEARED NO SECTORS WERE FOUND 

jGO TO NEXT TRACK 

jCLEAR THE BYTE AND ERROR COUNTERS 

jRl BIT 7 IS USED AS FIRST ERROR FLAG 

IADJUST DATA AND CK SUM FOP ADDRESSES 

jSET UP FOR CHECK SUM ACCUMULATION 

j SET UP RETURN ADDRESSES 

SLOWER 'CPU' LEVEL 

jSET RETURN 'PC 

>GET 'CPU' LEVEL INTO 'PSW' 

lLOAD EMPTY BUFFER FUNCTION 

j TEST FOR TR FLAG 



ISAVE BYTE FROM DISKETTE 
^ACCUMULATE CHECK SUM 
jCOMPARE AGAINST GOOD BYTE 
;IF NOT EQUAL GO TO DATAER 

JGET NEXT BYTE 

jSET FIRST AND SECOND BYTES WITH ADDRhSSES 

jGET THE PATTERN SUM 
jADD TRACK ADDRESS TO CHECK SUM 
|ADD SECTOR ADDRESS TO CHECK SUM 
; INSERT CHECK SUM TO DATA BUFFER 
jGENERATE NEGITIVE CHECK SUM 

jINSERT NEG,SUM INTO DATA BUFFER 
jSET ADDRESS OF BYTE IN R0 
JRETURN 



? REMOVE THE DONE RETURN FROM THE STACK 

jPUT ADDR OF EMPTYBUF MESSAGE 151 PAR fcR TYRUUT 1 

JRETURN THROUGH HERE TO LOOP ON ERROR 

> IF NO LOOP ON ERROR GO TO NEXT SECTOR 

jREPORT PARITY ERROR 
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3067 


011110 


052737 


000400 


012724 D*TAEP: 


BIS »BIT8,UN1TSEL 


3068 


011116 


005237 


01 14b0 




INC ERCNTR 


3069 


011122 


104405 






CKSWR 


3070 


011124 


032777 


020000 


170064 


BIT *SW13»0SWP 


3071 


011132 


001054 






BNE NOERTYP 


3072 


011134 


032777 


001000 


170054 


BIT *SW9r95WH 


3073 


011142 


001004 






BNE 1$ 


3074 


011144 


023727 


011460 


000012 


CMP ERCNTR, #10, 


3075 


011152 


003044 






BGT NOERTYP 


3076 


011154 


105701 




IS: 


TSTB Pi 


3077 


011156 


100014 






BPL TYPERR 


3078 


011160 


004737 


010566 




JSR PCERMSG 


3079 


011164 


104400 


015772 




TYPE ,MDERHDR 


3080 


011170 


104400 


016120 




TYPE ,MCRLF 


3081 


011174 


004737 


012050 




JSR PCTYPADR 


3082 


011200 


104400 


016061 




TYPE , MCOLMUN 


3083 


011204 


042701 


000200 




BIC #BIT7,R1 


3084 


011210 


013737 


01 1452 


011222 TYPERP: 


MOV BXTECNTR,1$ 


3085 


011216 


004537 


015600 




JSR R5,SGLDEC 


3086 


011222 


000000 




IS s 


OPEN 


3087 


011224 


104400 


01bll5 




TYPE ,DBLSP 


3088 


011230 


01374b 


011454 




MOV BADBYT£,-(SP) 


3089 


011234 


104402 






TYPOS 


3090 


011236 


000003 






.WORD 3 


3091 


011240 


104400 


0161 15 




TYPE ,UBLSP 


3092 


011244 


114037 


011456 




MOVB -(R0),GOODBYTE 


3093 


011250 


005200 






INC R0 


3094 


01 1252 


01374b 


011456 




MOV G00DBYTE,-(5P) 


3095 


01 1256 


104403 






TYPON 


3096 


011260 


104400 


01bl20 




TYPE ,MCRLF 


3097 


011264 


104405 




NOFRTYPl 


CKSWR 


3098 


011266 


005777 


167724 




TST 0SWR 


3099 


011272 


100001 






BPL CONT20 


3100 


011274 


300000 




HLT141 


HALT 


3101 


0U276 


005237 


011452 


CONT2GI 


INC bytecntp 


3102 


011302 


000137 


010730 




JMP EMPFLAG 


3103 













»SET THE HAD ERROR FLAG 
jlNC THE BYTE ERROR COUNTER 

jTEST PRINT ERROR SW IN SWR 
, DON'T PRINT THE ERROR 
»TEST PRINT 10 ERRORS SWITCH 
J IF SET PRINT ALL ERRORS 
jHAVE 10 ERRORS BEEN TYPED 
JYES, DON'T PRINT ANY MORE 
;TEST FIRST ERROR FLAG 

JPRINT ADDRESS OF TEST 

1FIRST ERROR, PRINT ERROR HEADER 

JPRINT TRACK AND SECTOR LOCATIONS 
{SET UP cOLMUN HEADINGS 
jCLEAR FIRST ERROR FLAG 
;PRINT BYTE NUMBER 



JPRINT BYTE READ FROM DISKETTE 



jGET GOOD BYTE 

jRETURN R0 TO NEXT BYTE IN BUFFER 



fPRINT GOOD DATA 

,-TEST HALT ON ERROR SWITCH 
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3104 


011306 


005737 


007704 


3105 


011312 


001401 




3106 


011314 


000207 




3107 


011316 


0*>5737 


011 460 


3108 


011322 


001442 




3109 


0113 2 4 


104405 




3110 


011326 


032777 


020000 


3111 


011334 


001024 




3112 


011336 


104100 


016333 


3113 


011342 


01 3737 


011460 


3114 


01 1350 


001537 


015600 


3115 


011354 


000000 




3116 


011356 


104400 


016650 


3117 


011362- 


105737 


011056 


3118 


011366 


001403 




3119 


011370 


104400 


016635 


3120 


011374 


000402 




3121 


011376 


104400 


016643 


3122 


011402 


104400 


016120 


3123 


011406 


104405 




3124 


01 1410 


032777 


004000 


3125 


011416 


001404 




3126 


011420 


004737 


010024 


3127 


011424 


000137 


010644 


3128 


011430 


005337 


013414 


3129 


011434 


001404 




3130 


011436 


004737 


010020 


3131 


011442 


000137 


010644 


3132 


01 144b 


005001 




3133 


01 1450 


000207 




3134 








3135 


011452 


000000 




3136 


011454 


000000 




3137 


011456 


000000 




3138 


011460 


000000 




3139 








3140 








3141 








3142 








3143 








3144 


011462 


104405 




3145 


011464 


032777 


020000 


3146 


011472 


001006 




3147 


011474 


004737 


010566 


3148 


011500 


104400 


016256 


3149 


011504 


104400 


016120 


3150 


011510 


104405 




3151 


011512 


005777 


167500 


3152 


011516 


100001 




3153 


011520 


000000 




3154 


011522 


004737 


011526 


3155 









4$: 
5$: 
2St 



TST DATACK 

BEQ IS 

RTS PC 

TST ERCNTR 

BEO NXREAD 

CKSWR 

BIT #SW13,PSWR 

BNE 2S 

TYPE ,MERCT 

MOV ERCNTR, 3S 

JSR R5,SGLDEC 

OPEN 

TYPE ,MSUM 

TSTB CKSUM 

BEO 4S 

TYPE ,MBAD 

BR 5$ 

TYPE,MGOOD 

TYPE ,MCRLF 

CKSWK 

BIT *SW11,0SWR 

BEQ NXREAD 

JSF PC, REREAD 

JMP EMpBUFF 

DEC SECCNTR 

BEQ EXIT 

JSR PC,XREAD 

JMP EMPBUFF 

CLR Rl 

RTS PC 



JWAS THIS READ CHECK CAUSED tiY A CfiC &RROR 

jNO 

; YES, RETURN TO CRC HANDLER 

;WAS THERE ERRORS 

;NO ERRORS 

> YES, TEST DON'T PRINT SWITCH 

JDON'T PRINT THE ERROR 

JPRINT THE TOTAL DATA ERROR COUNT 



{INDICATE IF CHECK SUM WAS GOOD OR hAD ERRORS 



jTEST LOOP ON ERROR SWITCH 
;IF NOT SET GO TO NEXT SECTOR 
?YES,GO REREAD THE DATA 
jGO RECHECK THE DATA 



jREAD THE NEXT SECTOR 
JCLEAR THE ONE READ FLAG 



BYTECNTR: 

BADBYTE! 

GOODBYTE: 

ERCNTR! 

;AN INTERRUPT DID NOT OCCURE AT 

NOINTERj CKSWR 

BIT #SW13,9SWR 

BNE 1$ 

JSR PCERMSG 

TYPE ,MINTER 

TYPE ,MCRLF 
IS: CKSWR 

TST 0SWR 

BPL CONT21 
HLT15I HALT 

CONT21: JSR PCINTSERV 



A FUNCTION DONE FLAG, 

jTEST DON'T PRINT ERROR SWITCH 

;TYPE NO INTERRUPT ON DONE ERROR 

jTEST HALT ON ERROR SWITCH 

JHALT ON ERROR 

jJSR TO INTSERV AS IF IT WAS AN INTERRUPT 
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3156 












3157 












3158 


011526 


117737 


167456 


012146 


INTSERVi 


3159 


011534 


005777 


167446 






3160 


011540 


100444 








3161 


011542 


032737 


000004 


012146 




3162 


011550 


001402 








3163 


011552 


000137 


012006 






3164 


011556 


032737 


000003 


012146 


2S s 


3165 


011564 


001021 








3166 


011566 


132777 


000040 


167412 




3167 


011574 


001012 








3168 


011576 


104405 








3169 


011600 


032777 


020000 


167410 




3170 


011606 


001004 








3171 


011610 


104400 


016311 






3172 


011614 


104400 


016120 






3173 


011620 


000002 






4S» 


3174 


011622 


062706 


000006 




3SS 


3175 


011626 


000207 








3176 


011630 


104405 






is: 


3177 


011632 


032777 


020000 


167356 




3178 


011640 


001004 








3179 


011642 


104400 


016614 






3180 


011646 


104400 


016120 






3181 


011652 


005237 


006472 




RXERROR: 


3182 


011656 


001775 








3183 


011660 


052737 


00040;** 


012724 




3184 


011666 


012777 


000017 


167312 


2S: 


3185 


011674 


004737 


006574 




3$: 


3186 


011700 


000775 








3187 


011702 


032777 


000002 


167300 




3188 


011710 


001403 








3189 


011712 


004737 


012022 






319^ 


01171b 


000763 








3191 


011720 


117737 


167264 


012150 


IS: 


3192 


011726 


104405 






NOPRNT; 


3193 


011730 


032777 


020000 


1672b0 




3194 


011736 


001020 








3195 


011740 


104400 


016120 






3196 


01 1744 


004737 


010566 






3197 


011750 


10440<a 


016212 






3198 


011754 


013746 


007702 






3199 


011760 


104402 








3200 


011762 


006 








3201 


011763 


000 








3202 


011764 


004737 


012*50 






3203 


011770 


104400 


016120 






3204 


011774 


004737 


012220 






3205 


012000 


062706 


000004 




2S: 


3206 


012004 


000207 








3207 












3208 


012006 


104400 


016665 




RXPWR: 


3209 


012012 


104400 


015270 






3210 


012016 


000137 


001 350 
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,SBTTL INTERRUPT SERVICE 



MOVB 


prxdb,astat 


TST 


@RXCS 


BMI 


RXERROR 


BIT 


&BIT2»ASTAT 


BEO 


2$ 


JMP 


RXPWR 


BIT 


93, ASTAT 


BNE 


IS 


BITE 


8DONEBIT,@RXCS 


BNE 


3S 


CKSWR 


BIT 


#SW13,@SWR 


BNE 


4$ 


TYPE ,MUKNINT 


TYPE ,MCRLF 


RTI 




ADD 


*6,SP 


PT5 


PC 


CKSWR 


BIT 


#swi3#eswp 


8NE 


RXERROR 


TYPE # MNOFLAG 


TYPE #MCRLF 


INC 


ERRORS 


BEQ 


RXERROR 


BIS 


«BIT8»UNITSEL 


MOV 


*RDER,iaRXCS 


JSR 


PC»5DN 


BR 3$ 


BIT 


*2,PBXDB 


BEQ 


IS 


JSR 


pC,PARTYP 


BR 2S 


MOVB 8RXD6,BSTAT 


CKSWR 


BIT 


«SW13,0SWP 


BNE 


2S 


TYPE , MCRLF 


JSR 


PCERMSG 


TYPE ,MRXCS 


MOV FUNCTION, -(SPJ JjSA 


TYPOS 


; » go 


.BYTE 6 


»|TY 


.BYTE 


t >su 


JSR 


PCTYPAOR 


TYPE ,MCRLF 


JSP 


PCTYPCODE 


ADD 


#4,SP 


RTS 


PC 



TYPE ,MRX11 
TYPE ,SPOWEH 
JMp RESTART 



jSAVE THE ERROR AND STATUS WORD 

»TEST THE ERROR FLAG 

;THERE WAS AN ERROR GO REPORT IT 

|IS INIT DONE SET 

JNO, CONTINUE 

|YES, REPORT POWER FAILED AND RESTART 

JARE PAR OR CRC BITS SET 

; YES GO REPORT ERROR 

JIS DONE SET 

,'IF SET RETURN TO TEST 

jTEST DON'T PRINT ERROR SWITCH 

jDON'T PRINT 

;TYPE UNKNOWN INTERRUPT 

jRETURN FROM THE INTERRUPT 

JBYPASS INTERRUPT POINTERS ON STACK 

;RETURN TO PROGRAM 

jTEST DON'T PRINT ERROR SWITCH 

jTYPE NO STATUS ERROR ERROR 

jAN ERROR INDICATOR 

}SET HARD ERROR FLAG 
jGET THE ERROR CODE 
jTEST FOR DONE FLAG 

jWAS THERE A PARITY ERROR 

;NO, CONTINUE 

; YES, GO REpORT THE PARITY ERROR 

JREISSUE THE FUNCTION 

jSAVE THE ERROR CODE IN B STATUS 

{TEST PRINT ERROR SWITCH IN SwR 



;TYPE ERROR AND MESSAGES 
jTYPE COMMAND STATUS REGISTER 

VF FUNCTION FOR TYPEOUT 
TYPE — OCTAL ASCII 

PE 6 DIGIT(S) 

PPRESS LEADING ZEROS 

;TYPE ADDRESSES AND RUN CONDITIONS 

jPRINT THE STATUS REGISTERS 

jMOVE ERROR RtTURN TO TOP OF STACK 



jONLY THE RX11 POWER HAS I-AILED 
;PRINT POWER FAILED 
|GO TO RESTART 



) 



MAINDEC-11-DZRXB-E HACYll 27 f 732) 
DZRXBE.P11 INTERRUPT SERVICE 



16-MAR-76 15:55 PAGE 72 



3211 


012022 


104400 


016212 




PARTYP: 


3212 


012026 


017746 


167154 






3213 


012*32 


104402 








3214 


012034 


006 








3215 


012035 


000 








3216 


012036 


104400 


016577 






3217 


012042 


10 4 400 


016120 






3218 


012046 


000207 








3219 












3220 


012050 


104400 


016020 




TYPADR: 


3221 


012054 


013746 


013126 






3222 


012060 


104402 








3223 


012062 


003 








3224 


012063 


000 








3225 


012064 


104400 


016047 






3226 


012070 


01 3737 


013416 


012144 




3227 


012076 


042737 


177740 


01214 4 




3228 


012104 


013746 


012144 






3229 


012110 


104402 








3230 


012112 


002 








3231 


012113 


000 








3232 


012114 


104400 


016115 






3233 


012120 


032737 


000020 


012724 




3234 


012126 


00100 3 








3235 


012130 


104400 


016163 






3236 


012134 


000402 








3237 


012136 


104400 


016173 




1$: 


3238 


012142 


000207 






4$: 


3239 


012144 


000000 






2S: 


3240 












3241 


012146 


000000 






ASTATJ 


3242 


012150 


000000 






bstat: 


3243 












3244 












3245 


012152 


117737 


167032 


012146 


RDCODEJ 


3246 


012160 


012777 


000017 


167020 


2S: 


3247 


012166 


004737 


006574 




3$: 


3248 


012172 


000775 








3249 


012174 


032777 


000002 


167006 




3250 


012202 


001403 








3251 


012204 


004737 


012022 






3252 


012210 


000763 








3253 


012212 


117737 


166772 


012150 


1$: 


3254 


012220 


104400 


016222 




TYPCODE 


3255 


012224 


013746 


012146 






3256 


012230 


104402 








3257 


012232 


003 








3258 


012233 


000 








3259 


012234 


104400 


016106 






3260 


012240 


104400 


016236 






3261 


012244 


013746 


012150 






3262 


012250 


104403 








3263 


012252 


104400 


016120 






3264 


012256 


000207 









MOV 
TYPOS 
.BYTE 
.BYTE 



MOV 
TYPOS 
.BYTE 
.BYTE 



MOV 
TYPOS 
.BYTE 
,HYTE 



TYPE ,MRXCS 
PRXCS,-(SP) 



TYPE ,MPAP 
TYPE , MCRLF 
RTS PC 

TYPE ,MTRK 
TARGET, -(SP) 

3 



TYPE ,MSECT 

MOV TSECTOR,2$ 

BIC #177740, 2S 

2S,-(SP) 



TYPE ,DBLSP 

BIT #BIT4,UNITSEL 

BNE IS 

TYPE ,MUNIT0 

BR 4$ 

TYPE ,MUNIT1 

RTS PC 

OPEN 



;?SAVE @RXCS FOR TYPEOUT 
j;GO TYPE — OCTAL ASCII 
;;TYPE 6 DIGIT(S) 
^SUPPRESS LEADING ZEROS 



jTYPE TRACK ADDRESS 
,'jSAVE TARGET FOR TYPEOUT 
; jGO TYPE — OCTAL ASCII 
jjTYPE 3 DIGIT(S) 
}f SUPPRESS LEADING ZEROS 

jTYPE SECTOR ADDRESS 

jCLEAP ALL HUT SECTOR ADDRESS 
; jSAVE 2$ FOR TYPEOUT 
;;GO TYPE — OCTAL ASCII 
;»TYPE 2 DIGIT(S) 
jjSUPPRESS LEADING ZEROS 



JWHITCH DRIVE IS BEING USED 
jTYPE UNIT 
?TYPE UNIT 1 





MOVB BRXDB,ASTAT 




MOV #RDER,@PXCS 




JSR PC,SDN 




BR 3$ 




BIT #2,PRXDB 




BEO IS 




JSR PCPARTYP 




BR 2S 




MOVB »RXDB,BSTAT 




TYPE ,MASTAT 


MOV 


ASTAT#-CSP) 


TYPOS 




.BYTE 


3 


8 BYTE 







TYPE ,TAB 




TYPE ,MBSTAT 




MOV BSTAT, -(SP) 




TYPON 




TYPE ,MCRLF 




RTS PC 



JSAVE THE A STATUS 

jREAD THE B STATUS REGISTER 

jWAIT FOR DONE FLAG 

;WAS THERE A PARITY ERROR 

?NO»CONTINUE 

j YES, REPORT THE PARITY ERROR 

jRETRY READING STATUS B 

;SAVE THE B STATUS CODES 

jTYPE THE CONTENTS OF THE TWO STATUS REGISTERS 
I JSAVE ASTAT FOR TYPEOUT 
j|GO TYPE — OCTAL ASCII 
fjTYPE 3 DIGIT(S) 
nSUPPRESS LEADING ZEROS 



01 7404 

012536 
012324 
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3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
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.SBTTL PATTERN GENERATOR 

fNOTE: ALL DATA PATTERNS WILL BE MODIFIED SO THE FIRST BYTE WILL 
, CONTAIN THE TRACK ADDRESS, THE SECOND BYTE WILL CONTAIN THE UNIT 
JNUMBER AND SECTOR ADDRESS IN WHICH THE DATA IS WRITTEN, THE MOST 
/SIGNIFICANT BIT OF THIS SECOND BYTE INDICATES THE UNIT, UNIT 
,IF "0" UNIT 1 IF «1», THE LAST TWO BYTEs CONTAIN THE CHECK SUM, 



12260 
12264 
12270 
12274 
12276 
12302 
12304 
12306 
12310 
12 312 
12314 
12316 
12320 



012 3 2 2 
w 1 2 3 2 4 



012704 
005037 
013705 
006305 
000175 
012326 
012340 
012350 
012412 
012420 
012440 
012450 
012470 



000000 

000000 



gltpattern: 



MOV #BUFADR»R4 

CLR SUM 

MOV PAT,R5 

ASL R5 

JMP 0PATTERNSCP5) 

DATA0 

DATA1 

FLOAT0 

FL0AT1 

PAT125 

PAT314 

COUNT 

RANDATA 



>SET ADDRESS OF FIRST DATA bYTE 

fSET UP FOR ACCUMULATION OF CHECK SUM 

?GET PATTERN BITS 



;000 DATA BYTE 
j 377 DATA BYTE 
fFLOAT A THROUGH ALL l'S 
jFLOAT A 1 THROUGH ALL 0'S 
H25/052 DATA WORD 
;3l4/063 DATA WORD 
JINCRUMENT DATA PATTERN 
;RANDOM DATA BYTE 



DATABYTE! 
PAT! 



• • #*#*#*#* 



#**#####*###«»*#*#**##**■*###*######♦#***##*## 



JLOAD SOFTWARE BUFFER WITH ALL ZEROS 
j PAT s 



012326 005037 HI 2322 
012332 004737 01251H 
012336 000775 



012340 112737 001*377 012322 
012346 000771 



DATAtf: 
PATGEN: 



CLP DATABYTE 
JSR PC, LOAD 
BR PATGEN 



;G0 LOAD THE DATA BUFFER 



JLOAD SOFTWARE BUFFER WITH ALL ONES 
; PAT = 1 



MOVH »377, DATABYTE 
BR PATGEN 
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MtWMm 



3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 



S FLOAT A THROUGH OWES IN SOFTWARE BUFFER 
; PAT s 2 



012350 
012356 
012360 
012364 
012366 
012370 
012374 
012376 
012400 
012402 
012404 
012410 



012412 
012416 



012420 
012426 
012432 
01243b 



012440 
012446 



312450 
012456 
012462 
012466 



112737 
000261 
012702 
103001 
005202 
004737 
000241 
005702 
001401 
000261 
106137 
000763 



005037 
000757 



112737 
004737 
105137 
000773 



112737 

000767 



012737 
005237 
004737 
000773 



00037b 

000000 



FLOAT0: 

XPATGENi 

is: 



MOVB *37b, DATABYTE 

SEC 

MOV #0,R2 

BCC 2S 

INC R2 

JSP PCLOAD 

CLC 

TST R2 

BEO 3$ 

SEC 

POLB DATABYTE 

BR IS 



;SET UP a ONES FIELD 

;SET THE C BIT TO ROTATE THROUGH THE DATA 

jCLR R2 (CAN'T USE "CLR" IT CLEARS "C»« BIT) 

JBP IF "C" BIT IS CLEARED 

jSET R2 IF »C" BIT IS SET 

JGO LOAD THE DATA BUFFER 

fCLEAR THE "C" BIT 

; IS R2 NONZERO 

jYES, SET THE "C» BIT 



jFLOAT A 1 THROUGH ALL ZEROS IN SOFTWARE BUFFER 
; PAT = 3 

FLOATi: CLR DATABYTE 

BR XPATGEN 

; j #•»##*###*#**»***###»###*######**♦#*#*###**#####»#############*# 

;LOAD SOFTWARE BUFFER WITH ALTERNATING 1 AND FOR 
;ONE BKTE AND THE COMPLIMENT INTO THE NEXT 
; PAT = 4 



000125 
012510 
012322 



PAT125: 
XXPATGEN- 



MOVB #125, DATABYTE 
JSR PC, LOAD 
COMB DATABXTE 
BR XXPATGEN 



jLOAD SOFTWARE BUFFER WITH ALTERNATING PAIRS OF 1 AND AND 
^COMPLIMENT INTO THE NEXT 
j PAT = 5 



000314 012322 PAT314: 



MOVB #314, DATABYTE 
BR XXPATGEN 



>LOAD SOFTWARE BUFFER WITH COUNT PATTERN 
; PAT s 6 



000377 
012322 
012510 



COUNT! 

1$: 



MOV #377, DATABYTE 
INC DATABYTE 
JSP PC, LOAD 
BR IS 
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3366 








3367 








3368 








3369 








3370 








3371 


012470 


004737 


012540 


3372 


012474 


U3737 


012632 012322 


3373 


012502 


004737 


012510 


3374 


012506 


000770 




3375 








3376 


012510 


063737 


012322 012536 


3377 


012516 


113724 


012322 


3378 


012522 


022704 


017604 


3379 


012526 


001401 




3380 


012530 


000207 




3381 


012532 


005726 




3382 


012534 


000207 




3383 








3384 


012536 


000000 




3385 








3386 


012540 


012700 


000001 


3387 


012544 


063700 


012626 


3388 


01255m 


063700 


012630 


3 38 9 


012554 


042700 


170000 


3390 


012560 


000241 




3391 


012562 


006100 




3392 


012564 


006100 




3393 


012566 


010037 


012626 


3394 


012572 


005000 




3395 


012574 


013700 


012630 


3396 


012600 


006000 




3397 


012602 


006000 




3398 


012604 


063700 


012b26 


3399 


012610 


042700 


170000 


3400 


012614 


010037 


012630 


3401 


012620 


010037 


012632 


3402 


012624 


000207 




34k)3 








3404 


012626 


001234 




3405 


012630 


000765 




3406 


012632 


000300 




3407 









jLGAD 50FTWARE BUFFER WITH RANDOM DATA PATTERN 
; PAT s 7 

jGET RANDOM NUMBER 



ACCUMULATE THE PATTERN CHECK SUM 

jLOAD THE DATA BUFFER 

,HAVE 128 BVTES BEEN GENERATED 

J IF YES, RETURN TO TEST 

j IK NO, RETURN TO PATTERN GENERATOR 

j TAKE PATTERN RETURN ADDRESS OF STACK 

jRETURN TO TEST 



RANI ; 
PAN2: 

RANUM; 



JSR 


PCrRANGEN 


MOVB RANUM, DATA6YTE 


JSR 


PC, LOAD 


BR RANDATA 


ADD 


DATAbYTE,SUM 


MOVB DATABYTE,(R4)+ 


CMp 


#BUFADR+200,R4 


BEQ 


IS 


RTS 


PC 


TST 


(SP) + 


RTS 


PC 







MOV 


*1,R0 


ADD 


RANI ,Rkj 


ADD 


RAN2,R0 


BIC 


$170000, R0 


CLC 




ROL 


R0 


RUL 


R0 


MOV 


R0,RAN1 


CLR 


R0 


MOV 


RAN2,R0 


ROR 


R0 


ROR 


R0 


ADD 


RAN1,R0 


BIC 


#170000, R0 


MOV 


R0,RAN2 


MOV 


R0, RANUM 


PTS 


PC 


001234 


000765 
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3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 



2634 
2642 

2644 
2650 
2652 
2660 
2666 
2670 
2674 
2676 
2704 
2706 
2714 
2722 



012726 
012732 
012734 
012742 
012744 
012750 



032737 
001012 
105737 
100007 
042737 
052737 
000207 
005737 
100012 
032737 
001006 
042737 
052737 
000207 



440 012724 000000 



000100 012724 



GKTUNIT 



.SbTTL UNIT SELECTION 

{TKST FOR SELECTED UNITS, DRIVF READY, AND USED CONDITIONS 

;ALSO CONTAINS A "HAD ERROR" FLAG TO BE TESTED AT EOp, 

jTHE BITS IN UN1TSEL ARE USED AS FOLLOWS 

1 

;BIT15 =UNIT 1 SELECTED VIA SWR 

;BIT14 slINIT 1 USED BIT 

;BIT8 sThfs PASS HAD AN ERROR 

JBIT7 SUNIT SELECTED VIA S*P 

BIT6 sUNIT USED BIT 

BIT4 =UNIT SELECTION FOR FUNCTION WORD 



»«#«»#*«***#**«****«»**»#«*»**»*»*»«««*»»* »»»#** »»««.«#*# 



040020 

000100 



012724 
012724 



040000 012724 



012724 
012724 



BIT 

BNE 

TSTB 

BPL 

BIC 

BIS 

RTS 

TST 

BPL 

BIT 

BNE 

BIC 

BIS 

RTS 



#BIT6, UNITSEL 
IS 

UNITSEL 
IS 

#40020, UNITSEL 
#BIT6, UNITSEL 
PC 

UNITSEL 
2S 

#BIT14, UNITSEL 
2S 

#BIT6, UNITSEL 
#40020, UNITSEL 
PC 



;WAS UNIT JUST USED 

;UNIT USED CHECK UNIT 1 

;WAS UNIT SELECTED 

;NO GO TO UNIT 1 

fCLEAR UNIT 1 USED BIT AND FUNCTION (jfclT BIT 

jSET UNIT USED BIT 

jWAS UNIT 1 SELECTED 

;NO RETURN 

JHAS UNIT 1 BEEN USED 

J YES RETURN 

jCLEAR UNIT USED BIT 

jSET UNIT 1 USED BIT AND FUNCTION UNIT BIT 



;TEST THAT ALL UNITS HAVE BEEN ACCESSED 



005737 
100006 
032737 
001002 
062716 



040000 012724 



1SJ 



TST UNITSEL 

BPL IS 

BIT #BIT14, UNITSEL 

BNE 1$ 

ADD »2,@SP 

RTS PC 



>IS UNIT 1 SELECTED 

jNO RETURN 

jYES HAS IT BEEN USED 

»YES RETURN 

jBYPASS NOT DONE RETURE ON STACK 
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3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
348 J 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 



12752 
012756 
012760 
01276b 
012772 
012774 
013002 
013010 
013014 
013022 
013026 
013034 
013042 
013050 
013054 
013062 
013064 
013072 
013074 
W13102 



013124 
013126 
013130 
013132 
01313 4 
013136 



105737 
100442 
042737 
005737 
001440 
052737 
113737 
005037 
113737 
005037 
113737 
013737 
163737 
005237 
052737 
000207 
012737 
000770 
012737 
000764 



013104 113737 

013112 005737 

013116 001410 

1413120 100446 

013122 000463 



000000 
000000 
000000 
000000 
000000 
000000 



100200 
001200 

100000 
001200 

013134 
001201 
013132 
001200 
013134 
013132 
013124 
100200 

000013 

000004 



013126 
013136 



01313b 
013126 



013132 
013124 
013124 

001200 

013124 

013124 



.SBTTL TRACK SEQUENCE SELECTION 

UNITIALIZE TRACK SEQUENCE 

jNOTE: If WORD SEQUEN IS CLEARED THEN TRACK SEQUENCE IS FROM 0-52-53-114 ONLY 

J IF BIT 15 OF SEQUEN Is " 1 " THEN TRACK SELECTION Is INC, BETWEEN SELECTED OD/ID LIMITS, 

;IF BIT 7 IS "1" THEN TEST 25 DECREMENT SEQUENCE IS REQUIRED, 



1SJ 
2Sj 

3SS 



TSTB SEQUEN 

BMI 2S 

BlC #100200#OD 

TST OD 

BEQ 3S 

BIS *BIT15, SEQUEN 

MOVB OD, TARGET 

CL.P XID 

MOVB ID, XID 

CLR XOD 

MOVR OD,XOD 

MOV XID,TRKCNTR 

SUB XOD,TRKCNTP 

INC TRKCNTR 

BIS *100200,OD 

RTS PC 

MOV »13#TPKCNTR 

BR IS 

MOV #4, TRKCNTR 

BR IS 



;IS THIS TEST 26 SPECIAL SEQUENCE 

JYES, DEC FROM TRACK 12 TO 

jCLEAR FIRST USED BITS 

;TEST CONTENTS OF ID,OD FOR 

jSEQUENCE WILL BE FROM »HOME«-52-b3-l 1 4-0 

JLIMITS WERE SELECTED* INC FROM OD TO ID, 

IINIT OD AS PRESENT TRACK 

jINIT WORKING ID AND OD LOCATIONS 



;SET UP NUMBER OF TRACK MOVEMENTS 

JSET FIRST TIME BITS IN 10, OD 

;SET TRACK COUNTER 

J SET THE TRACK COUNTER 



***#«*#*#*****#***********#*#*****#*»****##*#**#*###********# 



013130 GETTPACK! 



TRKCNTR: 
TARGET: 
PKESTRM 
XOD: 

XID: 

SEQUEN: 



MOVB TARGET, PRESTRK 
TST SEQUEN 
BEQ LIMTRK 
BMI SEQ1 
BR SEQ2 



I RESET TO PRESENT TRACK 

j IS THIS THE LIMITED SEQUENCE 

;YES, DOING ONLY 0-52-53-114 

»N0, SEQUENCE IS BETWEEN SELECTED LIMITS 

*N0,THIS IS TEST 26 DEC SEQUENCE 
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S?WV%: 



) 



3498 










; ; *#»» 


3499 












3500 












3501 


013140 


005737 


001200 




LIMTRK 


3502 


013144 


100007 








3503 


013146 


012737 


000052 


013126 




3504 


013154 


042737 


100000 


001200 




3505 


013162 


000207 








3506 


013164 


105737 


001200 




is: 


3507 


013170 


100007 








3508 


013172 


012737 


000053 


013126 




3509 


013200 


012737 


000200 


001200 




3510 


013206 


000207 








3511 


013 210 


02 37 2-7 


013126 


000114 


2S: 


3512 


013216 


001404 








3513 


013220 


012737 


000114 


013126 




3514 


013226 


000207 








3515 


013230 


005037 


013126 




3$: 


3516 


013234 


000207 








3517 












3518 










;:*•»#* 


3519 












3520 












3521 












3522 












3523 


013236 


042737 


100200 


001200 


SEQ1 : 


3524 


013244 


123737 


013134 


013130 




3525 


013252 


001004 








3526 


013254 


113737 


001200 


013126 




3527 


013262 


000207 








3528 


013264 


005237 


01312b 




is: 


3529 


013270 


000207 








3530 












3531 










j t #»#« 


3532 












3533 












3534 












3535 












3536 


013272 


005737 


001200 




SEQ2: 


3537 


013276 


100007 








3538 


013300 


042737 


100200 


001200 




3539 


013306 


012737 


000012 


013126 




3540 


013314 


000207 








3541 


013316 


005337 


013126 




1SI 


3542 


013322 


000207 









jLIMITED SEQUENCE, ACCESS TRACKS 52 TO 53 TO 114 BACK TO 



TST OD 

bPL 1$ 

MOV #52, TARGET 

bIC #BIT15,0D 

PTS PC 

TSTB OD 

BPL 2$ 

MOV #53, TARGET 

BIC »BIT7,0D 

RTS PC 

CMP TARGET, »1 1 4 

BEQ 3S 

MOV »114, TARGET 

PTS PC 

CLR TARGET 

RTS PC 



jTEST HIGH ORDER FIRST TIME BIT 
JNOT SET, ON TRACK 52 
>G0 TO TRACK 52 
jCLEAR FIRST TIME BIT 

;TEST LOW ORDER FIRST TIME blT 
;NOT SET, ON TRACK 53 
»G0 TO TRACK 53 



jIS IT ON TRACK 114 
jYES,GO TO TRACK 
JNO, GO TO TRACK 114 



;G0 TO TRACK 



*#**#*#**#****####*****#*#######*#»#*###******###*####*#### 



J INCREMENT FROM OD+1 TO ID AND RETURN TO OD 
j USED WHEN TRACK LIMITS ARE SELECTED 



BIC 0100200, OD 

CMPB XID, PRESTRK 

BNE IS 

MOVB OD, TARGET 

RTS PC 

INC TARGET 

RTS PC 



jCLEAR FIRST TIME BITS 
^PRESENT TRACK EQUAL TO ID 
JNO GET NEW TRACK 
;YES RETURN TO OD 

JADD 1 TO TARGET TRACK 



#■»»*»«•»######*#*######*###•»•*##»#*##■»###*#■»#»#*#####*#*##### 



^DECREMENT FROM ID = 12 TO OD 
jUSED IN TEST 26 ONLY 



TST OD 

BPL 1$ 

BIC 8100200,00 

MOV #12, TARGET 

RTS PC 

DEC TARGET 

RTS PC 



jFIRST TIME BIT SET 

jNO GET NEXT TRACK 

;YES CLEAR FIRST TIME BITS 

;MOVE OUT 10 TRACKS 

jMOVE TO NEXT TRACK 
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3543 










,SBTTL 


SECTOR SELECTION 


3544 














3545 










j SECTOR 


INITIALIZATION AND I 


3546 














3547 


013324 


005737 


001202 




INITSECTORI 


TST FIRST 


3548 


013330 


001005 








BNE IS 


3549 


013332 


005237 


001202 






INC FIRST 


3550 


013336 


112737 


000032 


001203 




MOVB »32,LAST 


3551 


013344 


113737 


001203 


013414 


IS: 


MOVB LAST, SECCNTR 


3552 


013352 


163737 


001202 


013414 




SUB FIRST, SECCNTR 


3553 


013360 


005237 


013414 






INC SECCNTR 


3554 


013364 


105037 


013415 






CLRB SECCNTR+1 


3555 


013370 


113737 


001202 


013416 




MOVB FIRST, TSECTOR 


3556 


013376 


162737 


000003 


013416 




SUB 83, TSECTOR 


3557 














3558 


013404 


012737 


W00001 


01 3420 




MOV »1,INTLEAV 


3559 


013412 


000207 








PTS PC 


3560 














3561 


013414 


000000 






SECCNTR: 





3562 


013416 


000000 






TSECTOR: 





3563 
3564 
3565 


013420 


000000 






1NTLEAV; 





013422 


042737 


000200 


013416 


GtTSLCTOR! 


BlC #200, TSECTOR 


3566 


013430 


062737 


000003 


013416 




ADD 83, TSECTOR 


3567 


013436 


123737 


001203 


013416 




CMPB LAST, TSECTOR 


3568 


013444 


002010 








BGE IS 


3569 


013446 


113737 


001202 


013416 




MOVB FIRST, TSECTOR 


3570 


013454 


063737 


013420 


013416 




ADD INTLEAV, TSECTOR 


3571 


013462 


005237 


013420 






INC INTLEAV 


3572 


013466 


032737 


000020 


012724 


is: 


BIT #BIT4,UN1TSEL 


3573 


013474 


001403 








BEQ 2S 


3574 


013476 


052737 


000200 


013*16 




BIS #BIT7, TSECTOR 


3575 


013504 


000207 






2S: 


RTS PC 



>TEST FIRST AND LAST FOR 
JSECTORS SPECIFIED USE THEM 
;N0NE SPECIFIED SET FIRST TO 1 
jSET LAST TO MAXIMUM 
jSET UP SECTOR COUNTER 



jPUT FIRST SECTOR IN TARGET SECTOR 

;SUB 3 FROM TSECTOR AS FIRST TIME THROUGH 

I IT GETS ADDED BACK ON, 

jSET INTERLEAVE OFFSET 



;Clfar the unit bit before testing 
;add 3 for interleaving 

;new sector is within limits 
{reset target sector to interleave 
j add on interleave offset value 
jup date the offset value 

jlS THIS UNIT 

jNO, SET UNIT IDENTIFIER IN TARGET SECTOR 



) 
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3576 








3577 








3578 








3579 








3580 








3581 








3582 








3583 








3584 








3585 








3586 








3587 








3588 








3589 








3590 








3591 








3592 








3593 


013506 


105737 


013735 


3594 


013512 


100002 




3595 


013514 


000000 




3596 


013516 


000407 




3597 


013520 


010046 




3598 


013522 


017600 


000002 


3599 


013526 


112046 




3600 


013530 


001005 




3601 


013532 


005726 




3602 


013534 


012600 




3603 


013536 


062716 


000002 


3604 


013542 


000002 




3605 


013544 


122716 


000011 


3606 


013550 


001430 




3607 


013552 


122716 


000200 


3608 


013556 


001006 




3609 


013560 


005726 




3610 


013562 


104400 




3611 


013564 


013737 




3612 


013566 


105037 


013722 


3613 


013572 


000755 




3614 


013574 


004737 


013656 


3615 


013600 


123726 


013734 


3616 


013604 


001350 




3617 


013606 


013746 


013732 


3618 








3619 


013612 


105366 


000001 


3620 


013616 


002770 




3621 


013620 


004737 


013656 


3622 


013624 


105337 


013722 


3623 


013630 


000770 




3624 








3625 








3626 








3627 


013632 


112716 


000040 


3628 


013636 


004737 


013656 


3629 


013642 


132737 


000007 


3630 


013650 


001372 




3631 


013652 


005726 





.SBTTL TYPE ROUTINE 

I#P0UTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A bYTE, 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
>*NOTEl: SIMULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHAFACTER, 
j*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
;*NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 



jMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;*CALLJ 






1*1) USING A TRAP INSTRUCTION 


I* 


TYPE 


, MESADR 


;*OR 






;* 


TYPE 






MESADR 




stype: 


TSTB 


STPFLG 




BPL 


IS 




HALT 






BR 


3S 


1$: 


MOV 


R0,-(SP) 




MOV 


92(SP),R0 


2s: 


MOVB 


(R0)+,-(SP) 




BNE 


4$ 




TST 


(SP) + 


60s: 


MOV 


(SP)+,R0 


3s: 


ADD 
RTI 


82, (SP) 


4S1 


CMPB 


»HT# CSP) 




BEQ 


BS 




CMPB 


#CRLF,(SP) 




BNE 


5S 




TST 


(SP) + 




TYPE 






SCRLF 






CLRB 


SCHARCNT 




BR 


2$ 


56: 


JSP 


PCSTYPEC 


6S: 


CMPB 


SFILLC, (SP)+ 




BNE 


28 




MOV 


$NULL,»(SP) 


7S: 


DECB 


KSP) 




BLT 


6$ 




JSP 


PCSTYPEC 




DECB 


SCHARCNT 




BR 


7S 


jHORIZONTAL TAB 


PROCESSOR 


8$: 


MOVB 


#' ,(SP) 


9$: 


JSP 


PCSTYPEC 




BITB 


#7, SCHARCNT 




BNE 


9$ 




TST 


(SP) + 



MIS THERE A TERMINAL? 

;iBR IF YES 

;jHALT HERE IF NO TERMINAL 

; jLEAVE 

;;SAVE R0 

,'jGET ADDRESS OF ASCIZ STRING 

jjPUSH CHARACTER TO BE TYPED ONTO STACK 

JJBR IF IT ISN'T THE TERMINATOR 

;»IF TERMINATOR POP IT OFF THE STACK 

; ^RESTORE R0 

; lADJUST RETURN PC 

; jRETURN 

jjBRANCH IF <HT> 

: jBRANCH IF NOT <CRLF> 

j ;POP <CRXLF> EQUIV 
j jTYPE A CR AND LF 

•jCLEAR CHARACTER COUNT 

;>GET NEXT CHARACTER 

;;GO TYPE THIS CHARACTER 

;»IS IT TIME FOR FILLER CHARS,? 

1 >IF NO GO GET NEXT CHAR, 

;»GET « OF FILLER CHARS, NEEDED 

; »AND THE NULL CHAR, 

MDOES A NULL NEED TO BE TYPED? 

;»BR IF NO--GO POP THE NULL OFF OF STACK 

MGO TYPE A NULL 

jjDO NOT COUNT AS A COUNT 

JILOOP 



fjREPLACE TAB WITH SPACE 
j jTYPE A SPACE 
j;BRANCH IF NOT AT 
jjTAB STOP 
J JPOp SPACE OFF STACK 
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3632 


013654 


000724 






BP 


2$ 


3633 


013656 


105777 


000044 


STYPECs 


TSTB 


PSTPS 


3634 


013662 


100375 






BPL 


STYPEC 


3635 


013664 


116677 


000002 


000036 


MOVB 


2(SP),(3STPB 


3636 


013672 


122766 


000015 


000002 


CMPB 


#CR,2CSP) 


3637 


013700 


001003 






BNE 


IS 


3638 


013702 


105037 


013722 




CLRB 


SCHARCNT 


3639 


013706 


000406 






BR 


STYPEX 


3640 


013710 


122766 


000012 


000002 ISi 


CMPB 


#LF,2(SP) 


3641 


013716 


001402 






BEQ 


STYPEX 


3642 


013720 


105227 






INCB 


CPO + 


3643 


013722 


000000 




SCHARCNTt .WORD 





3644 


013724 


000207 




STYPEX: 


RTS 


PC 


3645 














3646 


013726 


177564 




STPSs 


,WORD 


177564 


3647 


013730 


177566 




STP6; 


.WORD 


177566 


3648 


013732 


004 




snull: 


.BYTE 





3649 


013733 


002 




SF1LLSS 


.BYTE 


2 


3650 


013734 


012 




SFILLCj 


.BYTE 


12 


3651 


013735 


000 




STPFLG! 


.BYTE 





3652 


013736 


077 




SQUESJ 


.ASCII 


"7" 


3653 


013737 


015 




SCRLFs 


.ASCII 


<15> 


3654 


013740 


000012 




SLF: 


.ASCIZ 


<12> 



1 fGET NEXT CHARACTER 

;|WAIT UNTIL PRINTER IS READY 

;jLOAD CHAR TO BE TYPED INTO DATA REG, 

MIS CHARACTER A CARRIAGE RETURN? 

; JBRANCH IF NO 

I I YES — CLEAR CHARACTER COUNT 

MEXIT 

MlS CHARACTER A LINE FEED? 

MBRANCH IF YES 

MCOUNT THE CHARACTER 

^CHARACTER COUNT STORAGE 



MTTY PRINTER STATUS REG. ADDRESS 
MTTY PRINTER BUFFER REG, ADDRESS 
MCONTAINS NULL CHARACTER FOR FILLS 
MCONTAINS 8 OF FILLER CHARACTERS REQUIRED 
;jIN5ERT FILL CHARS. AFTER A "LINE FEED" 
M"TERMINAL AVAILABLE" FLAG ( BIT<07> = = YES ) 

mouestion MARK 

MCARPAIGE RETURN 
M LINEFEED 
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3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
36b7 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 



013742 
013746 
013754 
013760 
013764 
013766 
013774 
014002 
014010 
014012 
014014 
014016 
014022 
014024 
014030 
014034 
014040 
014044 
014046 
014050 
014052 
014054 
014056 
014060 
014062 
014064 
014070 
014072 
014076 
014100 
014102 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 



000000 
000001 
014167 
000^02 

000001 
000006 
000005 



014167 

000006 

014166 
014165 

000012 



014165 
014167 
014164 



014166 
177770 



.SHTTL BINARY TO OCTAL (ASCII) AND TYPE 

•THTS ROUTINE IS USED TO CHANGE A lb-BIT BINARY NUMBER TO A 6-DIGIT 

#OCTAL (ASCII) NUMBER AND TYPE IT. 

*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CaLL: 

* MOV NUMf-(SP) MNUMBER TO BE TyPED 

* TYPOS ;;CALL FOR TYPEOUT 

* .BYTE N MN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M • »M=1 OR 

* Ml = TYPE LEADING ZEROS 

* M0=SUPPRESS LEADING ZEROS 
* 

#STYPON----ENTEF< HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*STYPOS OR STYPOC 

*CALL: 

* MOV NUM,-(SP) MNUMBER TO BE TYPED 

* TYPON mCALL FOP TYPEOUT 



»STYPOC- 
*CALL! 



-ENTER HERE FOR TYPEOUT OF A lb BIT NUMBER 



MOV 
TYPOC 

STYPOS8 MOV 
MOVB 
MOVB 
ADD 
BR 

STYPOC: MOVB 
MOVB 

STYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADD 
MOVB 
MOVB 
MOV 
CLR 

is: pol 

BP 

ROL 

ROL 

POL 

MOV 

ROL 

DECB 

BPL 

BIC 

BNE 

TST 

BEQ 



2S: 



@(SP),-CSP) 

1CSP)»S0FILL 

(SP)+,SOMODE+l 

#2, (SP) 

STYPON 

«1, S0FILL 

#6 # SOMQDE+l 

#5,SOCNT 

P3,-(SP) 

R4,-(SP) 

P5,-(SP) 

SOMODE+1»R4 

R4 

*6,R4 

R4, SOMODE 

S0FILL,R4 

12(SP),P5 

P3 

R5 

3S 

R5 

R5 

R5 

R5,R3 

R3 

SOMODE 

75 

#177770, R3 

4S 

R4 

5$ 



M NUMBER TO BE TYPED 
MCALL FOR TYPEOUT 

MPICKUP THE MODE 
MLOAD ZERO FILL SWITCH 
MEMBER OF DIGITS TO TYPE 
MADJUST RETURN ADDRESS 

MSET THE ZERO FILL SWITCH 

; jSET FOR SIX(6) DIGITS 

MSET THE ITERATION COUNT 

MSA^E R3 

MSAVE R4 

> >SAVE R5 

MGET THE NUMBER OF DIGITS TO TYPE 

MSUBTRACT IT FOR MAX, ALLOWED 
; JSAVE IT FOR USE 
MGET THE ZERO FILL SWITCH 
MPICKUP THE INPUT NUMBER 
MCLEAR THE OUTPUT WORD 
MROTATE MSB INTO "C M 
; jGO DO MSB 
MFORM THIS DIGIT 



J |CET LSB OF THIS DIGIT 

MTYPE THIS DIGIT? 

1 jBR IF NO 

MGET RID OF JUNK 

I J TEST FOR 

MSUPPRESS THIS 0? 

MBR IF YES 
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3711 


014104 


005204 




4S> 


INC 


P4 ; 


3712 


014106 


052703 


000060 




bis 


#'0#R3 ; 


3713 


014112 


052703 


000040 


5SI 


BIS 


•' tR3 i 


3714 


014116 


110337 


014162 




MOVB 


R3,8S ; 


3715 


014122 


104400 


014162 




TYPE 


,8$ ; 


3716 


014126 


105337 


014164 


7S: 


DECB 


SOCNT ; 


3717 


014132 


003347 






BGT 


2S 


3718 


014134 


002402 






BLT 


b$ ; 


3719 


014136 


005204 






INC 


R4 , 


3720 


014140 


000744 






BR 


2S 


3721 


014142 


012605 




6$: 


MOV 


(SP)+,R5 ; 


3722 


014144 


012604 






MOV 


CSP)+,R4 , 


3723 


014146 


012603 






MOV 


(SPU,R3 ; 


3724 


014150 


016666 


000002 0P10004 


MOV 


2(SP),4(SP) ; 


3725 


014156 


012616 






MOV 


(SP)+, (SP) 


3726 


014160 


000002 






RTI 




3727 


014162 


000 




BS X 


,B*TE 


; 


3728 


014163 


000 






.BYTE 


; 


3729 


014164 


000 




SOCNTs 


.BYTE 


j 


3730 


014165 


000 




S0F1LL! 


.BYTE 


; 


3731 


014166 


000000 




SOMOOEl 


.WORD 


J 



IDON'T SUPPRESS ANYMORE 0'S 

;MAKE THIS DIGIT ASCII 

>MAKE ASCII IF NOT ALREADY 

>SAVE FOP TYPING 

>GO TYPE THIS DIGIT 

>COUNT BY 1 

»BR IF MORE TO DO 

iBR IF DONE 

>INSURE LAST DIGIT ISN'T A bL 

>GO DO THE LAST DIGIT 

jRESTORE R5 

jRESTORE R4 

fRESTORE R3 

jSET THE STACK FOR RETURNING 

JRETURN 

jSTORAGE FOR ASCII DIGIT 
^TERMINATOR FOR TYPE ROUTINE 
jOCTAL DIGIT COUNTER 
jZERO FILL SWITCH 
jfNUMhEP OF DIGITS TO TYPE 



D 
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3732 








3733 








3734 








3735 








3736 








3737 








3738 








3739 








3740 








3741 








3742 








3743 








3744 








3745 








3746 








3747 








3748 








3749 


014170 






3750 


014170 


010046 




3751 


014172 


010146 




3752 


014174 


010246 




3753 


014176 


010346 




3754 


014200 


010446 




3755 


014202 


010546 




3756 


014204 


016646 


000022 


3757 


014210 


016646 


000022 


3758 


014214 


016646 


000022 


3759 


014220 


016646 


000022 


3760 


014224 


000002 




3761 








3762 








3763 








3764 








3765 


014226 






3766 


014226 


012666 


000022 


3767 


014232 


012666 


000022 


3768 


014236 


012666 


000022 


3769 


014242 


012666 


000022 


3770 


014246 


012605 




3771 


014250 


012604 




3772 


014252 


012603 




3773 


014254 


012602 




3774 


014256 


012601 




3775 


014260 


012600 




3776 


014262 


000002 





.SBTTL SAVE AND RESTORE R0-R5 ROUTINfcS 



♦SAVE PM-F5 

♦CALL: 

* SAVPEG 

*UPON RETURN FROM SSAVREG THE STACK /lILL LOOK LIKE 



«**»»#«»»#»«###*» 



j»TOP — ( + 16) 




.» +2---C+18) 




,# +4.-.R5 




;# +6---R4 




j» +9---R3 




.* + 10..-P2 




j *+l 2---R1 




;*+U"-R0 




SSAVREG: 




MOV 


R0,-CSP) 


MOV 


R1,~(SP) 


MOV 


R2,-(SP) 


MOV 


R3,-(SP) 


MOV 


P4,-(SP) 


MOV 


R5,-(SP) 


MOV 


22(SP),-(SP) 


MOV 


22(5P),-(SP) 


MOV 


22CSP),-(SP) 


MOV 


22(SP),-(SP) 


RTI 




^♦RESTORE R0-R5 




;*CALL: 




»# RESREG 




8RESREG: 




MOV 


(SP)+,22(SP) 


MOV 


(SP)+,22(SP) 


MOV 


(SP)+,22(SP) 


MOV 


(SP)+,22CSP) 


MOV 


(SP)+#R5 


MOV 


(SP)+,R4 


MOV 


(SP)+,R3 


MOV 


(SP)+,R2 


MOV 


(SP)+,R1 


MOV 


CSP)+,R0 


RTI 





fPUSH R0 ON STACK 

»PUSH Rl ON STACK 

JPUSH R2 ON STACK 

jPUSH R3 ON STACK 

;PUSH R4 ON STACK 

;PUSH R5 ON STACK 

jSAVE PS OK MAIN FLOW 

jSAVE PC OF MAIN FLOW 

jSAVE PS OF CALL 

; >SAVE PC OF CALL 



MRESTOPE PC OF CALL 
» fRESTORE PS OF CALL 
MRESTORE PC OF MAIN FLOW 
;>RESTORE PS OF MAIN FLOW 
;;POP STACK INTO R5 
j |POP STACK INTO R4 
•,P0P STACK INTO R3 
;|POP STACK INTO R2 
JJPOP STACK INTO Rl 
jfPOP STACK INTO Rfej 



mmlmk 
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llllf? 



3777 
3778 
3779 
3780 
3781 
3782 
378J 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
37g5 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 



014264 
014266 



014270 
014276 
014300 
014304 
014306 
014 312 
014316 
014322 
014324 
014332 

014334 
014340 
014344 
014350 
014352 
HI 4356 
014360 
014362 
014366 

014370 
014374 



014400 
014404 
014406 
014412 
014416 



014420 
014424 
014426 
014432 
014434 
014442 
014446 
014452 
014460 
014462 
014470 



177560 
177562 



022737 
001074 
105777 
100071 
117746 
042716 
022726 
001062 
123727 
001456 

104400 
104400 
013746 
104401 
104400 
005046 
005046 
105777 
100375 

117746 
042716 



021627 
001005 
104400 
062706 
000757 



021627 
001022 
005766 
001403 
016677 
062706 
104400 
123727 
001003 
012777 
000002 



000176 001216 

177760 

177754 
177600 

000007 

015044 000001 



015015 
015022 
000176 



177672 
177600 



015010 

000006 



000015 

000004 

000002 164554 

000006 

013737 

015045 000001 

000100 177574 



,SBTTL TTY INPUT ROUTINE 

j j #*#*#################**#####**##*###*###«.#*#####*#*##*#*####### 
STKSI .WORD 177560 jjTTY KBD STATUS 

STKBj .WORD 177562 jjTTY KBD BUFFER 

.ENABL LSB 

j#SOFTWARE SWITCH REGISTER CHANGE ROUTINE, 

j*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;#SERVICE THE TEST FOR CHANGE IN SOFTWARE SwlTCH REGISTER TRAP CALL 

;#WHEN OPERATING IN TTY FLAG MODE, 

SCKSWR: CMp 

BNE 

TSTB 

bPL 

MOVB 

BIC 

CMP 

BNE 

CMPB 

6EQ 



TYPE 

TYPE 

MOV 

TYPOC 

TYPE 

CLR 

CLR 

TSTB 

BPL 



lis: 

14SI 



CMP 
BNE 
TYPE 
ADD 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 



#SWREG,SWR 

15S 

PSTKS 

15s 

p$TKB,-(SP) 

8**C177, (SP) 

»7, (SP) + 

15$ 

SAUTOB, »l 

15$ 

,SCNTLG 
, SMSWP 
SWpEG#-(SP) 

, SMNEW 

-CSP) 

-CSP) 

9STKS 

7$ 



MOVH g$TKB»-(SP) 
BIC S~C177,(SP) 



(SP),*25 

10$ 

,SCNTLU 
#6,SP 
19S 



CSP),*15 

16$ 

4(SP) 

11$ 

2(5P)i 9SWR 

*6,SP 

»$CRLF 

$INTAG,«1 

15$ 

9 100, £$TKS 



JjIS THE SOFT-SWR SELECTED? 

; jBRANCH IF NO 

; jCHAR THERE? 

;;IF NO, DON'T WAIT AROUND 

;j5AVE THE CHAR 

; jSTRIP-OFF THE ASCII 

;;IS IT A CONTROL G? 

;jNO, RETURN TO USER 

jjARE WE RUNNING IN AUTO-MODE? 

;, -BRANCH IF YES 

;jBCHO THE CONTROL-G (*G) 

;;TYPE CURRENT CONTENTS 

MSAVE SWREG FOR TYPEOUT 

;jGO TYPE--OCTAL ASCII(ALL DIGITS) 

; JPROMPT FOR NEW SwR 

; jCLEAR COUNTER 

;;THE NEW SWR 

jjCHAP THERE? 

; j IF NOT TRY AGAIN 

; jPICK UP CHAR 
;jMAKE IT 7-BIT ASCII 



J IIS IT A CONTROL-U? 

; ! BRANCH IF NOT 

JJYES, ECHO CONTROL-U (~U) 

jjIGNORF PREVIOUS INPUT 

j jLET'S TRY IT AGAIN 



J IS IT A <CK>? 

.•BRANCH IF NO 

JYES, IS IT THE FIRST CHAR? 

;BRANCH IF YES 

jSAVE NEW SWR 

jCLEAR UP STACK 

JECHO <CR> AND <LF> 

jRE-ENABLE TTY KBD INTERRUPTS? 

jBRANCH IF NOT 

jRE-ENABLE TTY KBD INTERRUPTS 

j RETURN 
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Jlla. 



3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 



014472 
014476 
014502 
014504 
014510 
014512 
014516 
014522 
014524 
014526 
014530 
014532 
014536 
014542 
014544 
014550 



004737 
021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104400 
000720 



013656 

000060 



000060 

000002 



000002 
177776 



14552 
14554 
14562 
14566 
14570 
14576 
14604 
14612 
14614 
14620 
14622 
14626 
14632 
14636 
14640 
14642 
14650 
14652 
14660 
14662 
14670 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



000004 

177476 

177472 
177600 

000004 



177440 
177600 

000021 



000004 

000004 

000023 



300140 
000004 000175 
000040 000004 



jECHO CHAR 

jCHAP < 0? 

JBRANCH IF YES 

jCHAP > 11 

jBRANCH IF YES 

JSTRIP-OFF ASCII 

JIS THIS THE FIRST CHAR 

jBRANCH IF YES 

JNO, SHIFT PRESENT 

J CHAR OVER TO MAKE 

j ROOM FOR NEW ONE, 

jKEEP COUNT OF CHAR 

JSET IN NEW CHAR 

JGET THE NEXT ONE 

jTYPE ?<CRXLF> 

JSIMULATE CONTROL-U 



1 \ ************************************************** ****%#**##*»* 

j*THIS ROUTINE WILL INpUT A SINGLE CHARACTER FROM THE TTY 

J*CALL! 

;* RDCHR j ; INPUT A SINGLE CHARACTER FROM THE TTY 

J* RETURN HERE JjCHARACTER IS ON THE STACK 

J* j | WITH PARITY BIT STRIPPED OFF 



JSR 


PCSTYPEC 


CMP 


(SP),S60 


BLT 


18$ 


CMP 


(SP),«67 


BGT 


18$ 


BIC 


»60, (SP)+ 


TST 


2(SP) 


BEQ 


17$ 


ASL 


(SP) 


ASL 


(SP) 


ASL 


(SP) 


INC 


2CSPJ 


BIS 


-2(SP), (SP) 


BR 


7$ 


TYPE 


,$QUES 


BR 


20$ 


LSB 





SRDCHR: MOV 
MOV 

1$S TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 

2$J TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 
BR 

3$: CMP 
BLT 
CMp 
BGT 
BIC 
RTI 



014672 010346 



4SJ 

j j ************ 

J#THIS ROUTINE 

J#CALL! 

f* RDLIN 

J* RETURN 

J* 

SRDLINi MOV 



(SP), 

4(SP) 

0$TKS 

1$ 

@$TKB 

*~C<17 

4(SP), 

3$ 

0STKS 

2$ 

0$TKB, 

#"C177 

(SP)+, 

2$ 

1$ 

4(SP), 

4$ 

4(SP), 

4$ 

#40, 4( 

******** 
WILL IN 



(SP) 
2(SP) 



4(SP) 
7>,4(SP) 

«23 



j JPUSH DOWN THE PC 

JSAVE THE PS 

JWA1T FOR 

JA CHARACTER 

JREAD THE TTY 

JGET RID OF JUNK IF ANY 

JIS IT A CONTROL-S? 

jBRANCH IF NO 

jwAIT FOR A CHARACTER 

JLOOP UNTIL ITS THERE 

jGET CHARACTER 

jMAKE IT 7-BIT ASCII 

I IS IT A CONTROL-Q? 

jIF NOT DISCARD IT 

jYES, RESUME 

JIS IT UPPER CASE? 

jBRANCH IF YES 

jlS IT A SPECIAL CHAR? 

jBRANCH IF YES 

JMAKE IT UPPER CASE 

jGO BACK TO USER 
******************* ************************ 
PUT A STRING FROM THE TTY 

jjINpUT A STRING FROM THE TTY 

JJADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

jjTERMINATOR WILL BE A BYTE OF ALL 0'S 



-(SP) 
, (SP) 
#21 



#140 



#175 



SP) 
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3889 


014674 


012703 


015000 




is: 


MOV 


#STTYIN,R3 


J {GET ADDRESS 


3890 


014700 


022703 


015010 




2Sj 


CMP 


f!$TTYIN + 8,,P3 


; {BUFFER FULL? 


3891 


014704 


101405 








BLOS 


4$ 


; {BR IF YES 


3892 


014706 


104406 








RDCHR 




;|GO READ ONE CHARACTER FROM THE TTY 


3893 


014710 


112613 








MOVB 


(SP)+,(P3) 


j {GET CHARACTER 


3894 


014712 


122713 


000177 




10$! 


CMPB 


#177, (R3) 


ff IS IT A RUBOUT 


3895 


014716 


001003 








BNE 


3S 


{{SKIP IF NOT 


3896 


014720 


104400 


013736 




4SS 


TYPE 


,$QUES 


{{TYPE A '?' 


3897 


014724 


000763 








BP 


1$ 


{{CLEAR THE BUFFER AND LOOP 


3898 


014726 


111337 


014776 




3SJ 


MOVB 


(R3),9$ 


j {ECHO THE CHARACTER 


3899 


014732 


104400 


014776 






TYPE 


,9$ 




3900 


014736 


122723 


000015 






CMPB 


»15.(R3)+ 


{{CHECK FOP RETURN 


3901 


014742 


001356 








BNE 


2S 


fjLOOP IF NOT RETURN 


3902 


014744 


105063 


177777 






CLPB 


-1(R3) 


{{CLEAR RETURN (THE 15) 


3903 


014750 


104400 


013740 






TYPE 


,SLF 


{{TYPE A LINE FEF.D 


3904 


014754 


012603 








MOV 


(SP)+,R3 


{{RESTORE R3 


3905 


014756 


011646 








MOV 


(SP),-(SP) 


{{ADJUST THE STACK AND PUT ADDRESS 


3906 


014760 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


{{ FIRST ASCII CHARACTER ON IT 


3907 


014766 


012766 


015000 


000004 




MOV 


#STTYIN,4(SP) 




3908 


014774 


000002 








RT1 




{ ^RETURN 


3909 


014776 


000 






9s: 


.BYTE 





{{STORAGE FOR ASCII CHAR, TO TYPE 


3910 


014777 


000 








.BYTE 





; {TERMINATOR 


3911 


015000 


000010 






STTYIN: 


,BLKB 


B, 


; {RESERVE 8 BYTEs FOR TTY INPUT 


3912 


015010 


052536 


005015 


000 


SCNTLUl 


.ASCIZ 


/~U/<15><12> 


; {CONTROL "U" 


3913 


015015 


136 


006507 


000012 


SCNTLGJ 


.ASCIZ 


/*G/<15><12> 


; {CONTROL "G" 


3914 


015022 


005015 


053523 


020122 


SMSWR: 


.ASCIZ 


<15><12>/SWR = 


/ 


3915 


015030 


020075 


000 












3916 


015033 


040 


047040 


053505 


SMNEWS 


, ASCIZ 


/ NEW = / 




3917 


015040 


036440 


000040 












3918 


015044 


000 






sautob: 


.BYTE 


{{AUTO 


MODE FLAG 


3919 


015045 


000 






$INTAG; 


.BYTE 


j | INTERRUPT MODE FLAG 
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3920 






3921 






3922 






3923 






3924 






3925 






3926 






3927 






3928 


015046 


010046 


3929 


015050 


016600 000002 


3930 


015054 


005740 


3931 


015056 


111000 


3932 


015060 


006300 


3933 


015062 


016000 015070 


3934 


015066 


000200 


3935 






3936 






3937 






3938 






3939 






3940 






3941 






3942 






3943 


015070 




3944 


015070 


013506 


3945 


015072 


013766 


3946 


015074 


013742 


3947 


015076 


014002 


3948 






3949 


015100 


014340 


3950 






3951 


015102 


014270 


3952 


015104 


014552 


3953 


015106 


014672 


3954 


015110 


014170 


3955 


015112 


014226 


3956 


015114 


006516 



.SBTTL TRAP DECODER 

{{*»#*#*#*#*###«**#**##*#****»**#*********#***#*«**#************* 
{«THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
{*OF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
j*GO TO THAT ROUTINE, 

STRAP: 



MOV 


R0,-CSP) 


{{SAVE R0 


MOV 


2(SP)»R0 


{ {GET TRAP ADDRESS 


TST 


-(R0) 


•{BACKUP BY 2 


MOVB 


(P0),R0 


{{GET RIGHT BYTE OF TRAP 


ASL 


R0 


{{POSITION FOR INDEXING 


MOV 


STRPAD(R0),R0 


{{INDEX TO TABLE 


RTS 


m 


{{GO TO ROUTINE 


TRAP 


TABLE 





{*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
{*BY THE "TRAP" INSTRUCTION, 



$TYPE 
STYPQC 
$TYPOS 
STYPON 



>>CALL=TYPE TRAP + 0U04400) TTY TYPEOUT ROUTINE 

{{CALLsTKPOC TRAp+1 ( 104401 ) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

{{CALLsTYPOS TRAP+2 ( 104402 ) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

{jCALL=TYPON TRAP+3 ( 104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 



SGTSWR {{CALLsGTSWR TRAP+4 ( 104404 ) GET SOFT-SWR SETTING 



SCKSWR {»CALL=CKSWR 
SRDCHP {{CALLsRDCHR 
$RDLIN {{CALLsRDLIN 
SSAVREG {{CALL=SAVREG 
SRESREG { {CALLsRESREG 



TRAP + 5U04405) TEST FOP CHANGE IN SOFT-SWR 

TRAP + 6U04406) TTY TYPEIN CHARACTER ROUTINE 

TPAP+7(104407) TTY TYPEIN STRING ROUTINE 

TRAP + 10U04410) SAVE R0-R5 ROUTINE 

TRAP + 1H10441 1) RESTORE R0-R5 ROUTINE 



XSUBSCOPE 



{{CALL=SUBSCOPE TRAP* 1 2 ( 104412 ) 
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3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
397J 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 



,SBTTL POWER DOWN AND UP ROUTINES 



015116 
015124 
015132 
015134 
015136 
015140 
015142 
015144 
015146 
015152 
015156 
015164 
015166 



015170 
015176 
015202 
015206 
015212 
015214 
015220 
015222 
015224 
015226 
015230 
015232 
015234 
015242 
015250 
015252 
015254 
015256 
015260 
f 15262 
015264 
01526b 
015270 
015276 



0127 
0127 

0100 
0101 

0102 

01 

0104 

0105 

0177 

0106 

0127 

0000' 

0007 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104400 
015270 
012716 
001350 
000002 
000000 
000776 

000000 

005015 
000122 



015262 000024 

000340 000026 



164044 
015266 

015170 0M0024 



0152&2 
015266 
015266 
015266 

163776 



1 I «#####»*&##*#e-##########'S 
jPOWEP DOWN ROUTINE 



####&###«■########&#####&&#»##*###•&•#### 



SPflPDNj MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 



#glLLUP»9#PWRVEC y | SET FOR FAST UP 
8340, §8PWRVEC+2 JJPPIOS7 



#-(5P) 
,-(SP) 
-(SP) 
■(SP) 
,-(SP) 
-(SP) 
PSWR,-(SP) 
SP,$SAVR6 



; JPUSH R0 ON STACK 

f J PUSH Rl ON STACK 

; jPUSH R2 ON STACK 

j jPUSH R3 ON STACK 

j f PUSH R4 ON STACK 

; jPUSH R5 ON STACK 

I fPUSH SSWP ON STACK 

J fSAVE SP 



#$PWRUP,e#PWPVEC IJSET UP VECTOR 
j jHANG UP 



? POwER 
SPWRUP! 



015116 
000340 



000024 
000026 



047520 042527 



SPWRMG- 

SPWRAD: 

SlLLUP: 

SSAVR6: 
SPQWER} 



up pouth 

MOV 
MOV 
CLR 

INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

,wOPD 

MOV 

.WORD 

RT1 

HALT 

BR 





####**#&#####*#&fc###-s*###$«## 



i####'»>«.»»#####»#&#*#& 



SILLUP,g«PWRVEC 

5AVR6,SP 

SAVR6 

SAVR6 

$ 

SPW,05WF 

SP)+,R5 

SP)+,R4 

SP)+,R3 

SP)t,R2 

SP)+ f Hl 

SP)+,R0 

SPWRDN, MPWRVEC 

340,§SPWRVEC+2 



5POWER 
[PC)+» (SP) 

RESTART 



jjSET FOR FAST DOwN 

jGET SP 

?WAIT LOOP FOR THE TTY 

JWAIT FOP THE INC 

}OF WORD 

j POP STACK INTO PSWR 

?POP STACK INTO R5 

fPOP STACK INTO R4 

?POp STACK INTO R3 

JPOP STACK INTO R2 

jPOP STACK INTO Rl 

jPOp STACK INTO R0 

IJSET UP THE POWER DOWN VECTOR 

jPRIO;7 

REPORT THE POWER FAILURE 

jPOWER FAIL MESSAGE POINTER 

JRFSTART AT RESTART 

jPESTART ADDRESS 

jTHE POWER UP SEQUENCE WAS STARTED 
f BEFORE THE POWER DOv»M WAS COMPLETE 
J PUT THE SP HERE 



.ASCIZ <15><12>"P0WER" 
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4002 








4003 








4004 








4005 








4006 








4007 








4008 








4009 








4010 








4011 








4012 








4013 


015300 


016637 


000002 0J5330 


4014 


015306 


012746 


015330 


4015 


015312 


004737 


015334 


4016 


015316 


06271b 


000005 


4017 


015322 


0126b6 


000002 


4018 


015326 


000207 




4019 


015330 


000000 


000000 


4020 








4021 








4022 








402 3 








4024 








4025 








4026 








4027 








4028 








4029 








4030 








4031 








4032 








4033 


015334 


104410 




4034 


015336 


016602 


000002 


4035 


015342 


012700 


015514 


4036 


015346 


010066 


000002 


4037 


015352 


012201 




4038 


015354 


012202 




4039 


015356 


012737 


000012 015432 


4040 


015364 


012704 


015444 


4041 


015370 


012705 


015446 


4042 


015374 


005003 




4043 


015376 


161401 




4044 


015400 


005602 




4045 


015402 


161502 




4046 


015404 


002402 




4047 


015406 


005203 




4048 


015410 


000772 




4049 


015412 


062401 




4050 


015414 


005502 




4051 


015416 


062402 




4052 


015420 


022525 




4053 


015422 


052703 


000060 


4054 


015426 


110320 




4055 


015430 


005327 




4056 


015432 


000000 




4057 


015434 


001357 





MOV 


2(SP),1$ 


MOV 


MS,-(5P) 


JSR 


PC,3#$DB2D 


ADD 


85, (SP) 


MOV 


(SP)+,2(SP) 


RTS 


PC 



.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

;;###«***#*#*##*#«•#*##*■»■##»*»#****##•»**«•***#»###**«■■»*#«■*»*#**««■#* 

J*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

;«UNS1GNED DECIMAL ASCIZ NUMBER, 

;*CALL 

;* MOV NUMBER, -(SP) jjPUT BINARY NUMBER ON THE STACK 

;* JSR PC,SBSSB2D jjCALL 

•* RETURN ;jADDRESS OF THE 1ST ASCIZ CHAR.1S ON THE STACK 

5 JSAVE BINARY NUMBER 

; ; SET POINTER 

jjCALL DOUBLE LENGTH CONVERT 

;;ONLY ALLOW FIVE CHARACTERS 

; jPICKUP POINTER 

; jRETURN 

IS! .WORD 0,0 

, SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

• •#**#**»»»*#*####*##*#•»**##*#*###■»#«■##*#*#■»###»•#*«■»#**#•)!■#*»*#■»«# 

;*THIS ROUTINE WILL CONVERT A 32-BlT BINARY NUMBER TO A^J UNSIGNED 
j#DECIMAL (ASCII) NUMBER, THE SIGN OF THE BINARY NUMBER MUST BE 
jaPOSITIVE, 
;*CALL 

j* MOV #PNTR,-(SP) j;POINTER TO LOW WORD OF BINARY NUMBER 
;* JSP PCfP*SDB2D 

;# RETURN JjTHE FIRST ADDRESS OF ASCIZ 

; ;1S On THE STACK 



;;SAVE REGISTERS 

jjPICKUP THE DATA POINTER 

;jGET ADDRESS OF "$DECVL H STRING 

I j PUT ADDRESS OF ASCIZ STRING ON STACK 

;jPICKUP THE BINARY NUMBER 

JjSET UP TO DO 10 CONVERSIONS 
; JADDRESS OF TEN POWER 



1SS 
2SI 



SAVREG 




MOV 


2(SP),R2 


MOV 


#SDECVL,R0 


MOV 


R0,2(SP) 


MOV 


(R2)+,R1 


MOV 


(R2)+,R2 


MOV 


810, ,4$ 


MOV 


#STNPWR,R4 


MOV 


#$TNpWR+2,R5 


CLR 


R3 


SUB 


(R4),R1 


SBC 


R2 


SUB 


(R5),R2 


BLT 


33 


INC 


R3 


BR 


2S 


ADD 


(R4)+#R1 


ADC 


R2 


ADD 


(R4)*,P2 


CMP 


(R5)+,(R5)+ 


BIS 


8*0, R3 


MOVB 


R3,(R03+ 


DEC 


CPO + 


.WORD 





BN£ 


IS 



? jCLEAR PARTIAL 

', {SUBTRACT TEN POWER 



jjBR IF TEN POWER TO LARGE 

jfADD x TO PARTIAL 

;|LOOP 

; | RESTORE SUBTRACTED VALUE 



; jMOVE TO NEXT TEN POWER 
jl CHANGE PARTIAL TO ASCII 
jjSAVE IT 
; fDONE? 

; jBR IF NO 
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4058 


015436 


103020 


4059 


015440 


104411 


4060 


015442 


000207 


4061 


015444 


145000 


4062 


015446 


035632 


406J 


015450 


160400 


4064 


015452 


002765 


4065 


015454 


113200 


4066 


015456 


000230 


4067 


015460 


041100 


4068 


015462 


000017 


4069 


015464 


103240 


4070 


015466 


000001 


4071 


015470 


023420 


4072 


015472 


000000 


4073 


015474 


001750 


4074 


015476 


000000 


4075 


015500 


000144 


4076 


015502 


000000 


4077 


015504 


000012 


4078 


015506 


000000 


4079 


015510 


000001 


4080 


015512 


000000 


4081 


015514 


000014 


4082 







CLPB 


(R0) 


RESREG 




RTS 


PC 


STNPWR: 145000 




35632 




160400 




2765 




113200 




230 




041100 




17 




103240 





1750 



114 



SDeCVLS ,blkb 



TERMINATOR 
RESTORE REGISTERS 
RETURN 
1 ,0E09 

1.0E08 

1 ,0E07 

1 ,0E06 

1.0E05 

1 .0E04 

1 .0E03 

1 ,0E0 2 

1 ,0E01 

1 .0E00 

RESERVE STORAGE FOR ASClZ STRING 



.) 
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4083 








; ;#»**#< 


4084 










4085 










4086 










4087 










4088 










4089 










4090 


015530 


010046 




RTJUSTJ 


4091 


015532 


016603 


000004 




4092 


015536 


010037 


015570 




4093 


015542 


105710 




IS! 


4094 


015544 


001406 






4095 


015546 


122710 


000060 




4096 


015552 


001005 






4097 


015554 


112723 


000040 




4098 


015560 


000770 






4099 


015562 


112740 


000060 


2$: 


4100 


015566 


104400 




4S: 


4101 


015570 


000000 




3$: 


4102 


015572 


012600 






4103 


015574 


012616 






4104 


015576 


000207 






4105 










4106 










4107 










4108 


015600 


012546 




SGLDECl 


4109 


015602 


004737 


015300 




4110 


015606 


004737 


015530 




4111 


015612 


000205 







jTYPE NUMERICAL ASClZ STRING, RIGHT JUSTIFIED 
.•REPLACING LEADING ZEROS WITH SPACES, 

fFIRST ADDRESS OF ASCIZ STRING MUST BE ON TOP OF THE STACK 



MOV R0,-(SP) 

MOV 4(SP)»RH 

MOV R0,3$ 

TSTB (R0) 

BEQ 2$ 

CMPB #'0,(R0) 

BNE 4S 

MOVB #' ,CR0D+ 

BR IS 

MOVR #'0,-CP0) 

TYPE 

OPEN 

MOV (SP)+,P0 

MOV (SP)+,(SP) 

PTS PC 

;TYPES 16 BIT WORD IN DECIMAL 

MOV (P5)+i-(SP) 

JSR PCMSSB2D 

JSR PCRTJUST 

RTS R5 



;SAVE R0 

>PICK UP ADDRESS OF ASCIZ STRING 

jSAVE ADDRESS FOR TYPE OUT 

J1S THIS THE TERMINATOR 

;IF YES TYPE IT OUT 

;IS IT A ZERO 

f IF NO GO PRINT IT 

?IF YES REPLACE IT WITH A SPACE 

jTEST NEXT CHAR, 

JSTRING OFF ALL ZEROS#PUT BACK THE LAST ONE 

JTYPE THE STRING 

JRESTORE P0 
jRESTORE THE STACK 
jRETURN 



>PUT NUMBER TO BE TYPED ON STACK 
JCONVERT NUMBER TO DECIMAL 
;T¥PE THE DECIMAL NUMBER 
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4112 










,s 


4113 












4114 












4115 


015614 


042524 


052123 


050040 


MDTESTP: 


4116 


015622 


051101 


046501 


052105 




4117 


015630 


051105 


035123 


000040 




4116 












4119 


015636 


005015 


042412 


040522 


MXEHEADER! 


4120 


015644 


051104 


020040 


040506 




4121 


015652 


052123 


020040 


043040 




4122 


015660 


050101 


020124 


020040 




4123 


015666 


020040 


020040 


020040 




4124 


015674 


043440 


047517 


020104 




4125 


015702 


020040 


040502 


020104 




4126 


015710 


020040 


020040 


040520 




4127 


015716 


051523 


000 






4128 


015721 


125 


042516 


050130 


MUNXDD: 


4129 


015726 


041505 


042524 


020104 




4130 


015734 


020104 


020104 


040515 




4131 


015742 


045522 


005015 


000 




4132 












4133 


015747 


104 


042040 


046440 


MDD^IS: 


4134 


015754 


051101 


020113 


044515 




4135 


015762 


051523 


047111 


006507 




4136 


015770 


000012 








4137 












4138 












4139 


015772 


040504 


040524 


020054 


MDERHPP: 


4140 


016000 


047516 


051440 


040524 




4141 


01600b 


052524 


020123 


051 105 




4142 


016014 


047522 


000122 






4143 












4144 


016020 


047440 


020116 


051124 


MTRKj 


4145 


016026 


041501 


00011 3 






4146 












4147 


016032 


020040 


051 106 


046517 


MPRES: 


4148 


016040 


052040 


040522 


045503 




4149 


016046 


000 








4150 












4151 


016047 


040 


020057 


042523 


MSECT: 


4152 


016054 


052103 


051117 


000 




4153 












4154 


016061 


015 


020012 


054502 


MCOLMUNl 


4155 


01606b 


042524 


020040 


040502 




4156 


016074 


020104 


043440 


047517 




4157 


016102 


006504 


000012 






4158 












4159 


016106 


020040 


020040 


020040 


TAB! 


4160 


016114 


000 








4161 












4162 


016115 


040 


000040 




drlsp: 


4163 












4164 


016120 


005015 


000 




mcrlf: 


4165 












4166 


016123 


015 


042412 


051122 


MERHEADERJ 


4167 


016130 


051117 


041440 


047U7 





.ASCIZ "TEST PARAMETERS! 



.ASCIZ <15X12><12> "ERADR FAST FAPT 



.ASCIZ "UNEXPECTED D D MARK"<15X12> 
.ASCIZ "D D MARK Ml SSING"<1 5><1 2> 

, ASCIZ "DATA, NO STATUS ERROR" 

, ASCIZ " ON TRACK" 
.ASCIZ " FROM TRACK" 

.ASCIZ " / SECTOR" 

, ASCIZ <15><12>" BYTE BAD GOOD"<l 5><1 2> 

.ASCIZ <40><40><40X40X40><40> 

.ASCIZ <40><40> 
.ASCIZ <15><12> 
.ASCIZ <15><12>"ERR0R CONDITIONS! TES1 PC 



, 
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SEQ 0119 



Wmh 



4168 


016136 


044504 


04452^ 


047| 17 




4169 


016144 


035123 


020040 


042524 




4170 


016152 


052123 


050040 


020103 




4171 


016160 


020075 


000 






4172 












4173 


016163 


125 


044516 


020124 


MUNIT0! 


4174 


016170 


020060 


000 






4175- 












4176 


016173 


125 


044516 


020124 


MUNIT1! 


4177 


016200 


020061 


000 






4178 












4179 


016203 


117 


046116 


020131 


MONLY! 


4180 


016210 


000040 








4181 












4182 


016212 


054122 


051503 


036440 


MPXCS! 


4183 


016220 


000040 








4184 












4185 


016222 


052123 


052101 


051525 


MASTAT! 


4186 


016230 


040440 


036440 


000040 




4187 












4188 


016236 


052123 


052101 


051525 


MBSTAT! 


4189 


016244 


041040 


036440 


000040 




4190 












4191 


016252 


'005015 


000012 




DBLLFS 


4192 












4193 


016256 


047516 


044440 


052116 


MINTERl 


4194 


016264 


051105 


052522 


052120 




4195 


016272 


040440 


020124 


047504 




4196 


016300 


042516 


042440 


051J22 




4197 


016306 


051117 


000 






4198 












4199 


016311 


125 


045516 


047516 


MUKNINT! 


4200 


016316 


047127 


044440 


052116 




4201 


016324 


051105 


052522 


052120 




4202 


016332 


000 








4203 












4204 


016333 


124 


052117 


046101 


MERCT! 


4205 


016340 


051040 


040505 


020104 




4206 


016346 


044103 


041505 


020113 




4207 


016354 


051105 


047522 


051522 




4208 


016362 


036440 


000040 






4209 












4210 


016366 


044506 


046114 


052502 


MFILl 


4211 


016374 


043106 


051105 


000040 




4212 












4213 


016402 


046505 


052120 


041131 


MEMPTYi 


4214 


016410 


043125 


042506 


020122 




4215 


016416 


000 








4216 












4217 


016417 


040 


051124 


041501 


MLIMTPKI 


4218 


016424 


0515U 


032440 


026062 




4219 


016432 


031465 


030454 


032061 




4220 


016440 


030054 


020040 


000 




4221 












4222 


016445 


117 


036504 


000 


MOD! 


4223 













.ASCIZ "UNIT " 

, ASCIZ "UNIT 1 " 

.ASCIZ "ONLY " 

.ASCIZ "RXCS s « 

.ASCIZ "STATUS A a " 

.ASCIZ "STATUS B = " 

.ASCIZ <15><12X12> 

.ASCIZ "NO INTERRUPT AT DONE ERROR" 

.ASCiZ "UNKNOWN INTERRUPT" 

, ASCIZ "TOTAL READ CHECK ERRORS = » 

.ASCIZ "FILLBUFFER " 
.ASCIZ "EMPTYBUFFER " 

.ASCIZ " TRACKS 52,53,114,0 " 
.ASCIZ "ODs" 
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4224 


016451 


040 


044440 


036504 


MID! 


4225 


016456 


000 








4226 












4227 


016457 


040 


043040 


051111 


MFIRSTl 


4228 


016464 


052123 


000075 






4229 












4230 


016470 


020040 


040514 


052123 


MLASTl 


4231 


016476 


000075 








4232 












4233 


016500 


051103 


020103 


051105 


MBADCPCi 


4234 


016506 


047522 


020122 


047516 




4235 


016514 


042040 


052101 


020101 




4236 


016522 


051105 


047522 


000122 




4237 












4238 


016530 


042522 


042101 


000040 


MREADI 


4239 












4240 


016536 


040504 


040524 


041440 


MCHCS 


4241 


016544 


041522 


042440 


051122 




4242 


016552 


051117 


000 






4243 












4244 


016555 


123 


042505 


020113 


MSEEKJ 


4245 


016562 


051 105 


047522 


000122 




4246 












4247 


016570 


051127 


052111 


020105 


MWRITES 


4248 


016576 


000 








4249 












4250 


016577 


120 


051101 


052111 


MPARI 


4251 


016604 


020131 


051105 


047522 




4252 


016612 


000122 








4253 












4254 


016614 


051105 


047522 


020122 


MNOFLAG; 


4255 


016622 


046106 


043501 


042440 




4256 


016630 


051122 


051117 


000 




4257 












4258 


016635 


102 


042101 


000 


MBAD! 


4259 












4260 


016641 


040 


000 




SPACE! 


4261 












4262 


016643 


107 


047517 


000104 


MGOOD! 


4263 












4264 


016650 


020040 


044103 


041505 


MSUH! 


4265 


016656 


0201 13 


052523 


020115 




4266 


016664 


000 








4267 












4268 


016665 


015 


0M012 


030530 


MRX1 i: 


4269 


016672 


020061 


020057 


054122 




4270 


016700 


030526 


000061 






4271 












4272 


016704 


005015 


046412 


044501 


MREVj 


4273 


016712 


042U6 


041505 


030455 




4274 


016720 


026461 


055104 


054122 




4275 


01672b 


026502 


006505 


000012 




4276 












4277 


016734 


005015 


047125 


054105 


LOC4MJ 


4278 


016742 


042520 


052103 


042105 




4279 


016750 


052040 


040522 


020120 





16-MAR-76 15155 PAGE 95 

.ASCIZ " ID=" 

,ASCIZ " FIRSTS" 

.ASCIZ " LASTs" 

MBADCRCJ , ASCIZ M CPC ERROR NO DATA ERROR" 

.ASCIZ "READ " 

, ASCIZ "DATA CRC ERROR" 

.ASCIZ "SEEK ERROR" 
.ASCIZ "WRITE " 
.ASCIZ "PARITY ERROR" 

, ASCIZ "ERROR FLAG fcRPOR" 

.ASCIZ "BAD" 

.ASCIZ <40> 

.ASCIZ "GOOD" 

.ASCIZ " CHECK SUM " 



: ) 



.ASCIZ <15><12>"RX11 / RXVH" 



.ASCIZ <15><12><12> "MAlNDEC-11-DZRXb-E" <15><12> 



LOC4MJ .ASCIZ < 1 5>< 1 2>"UNKXPECTED TRAP TO LOC. 4 OCCURRED" 
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4280 


016756 


047524 


046040 


041517 


4281 


016764 


020056 


020064 


041517 


4282 


016772 


052503 


051122 


042105 


4283 


017000 


000 






4284 










4285 


017001 


015 


052412 


042516 LOC10MJ 


4286 


017006 


050130 


041505 


042524 


4287 


017014 


020104 


051124 


050101 


4288 


017022 


052040 


020117 


047514 


4289 


017030 


027103 


030440 


020060 


4290 


017036 


041517 


052503 


051122 


4291 


017044 


042105 


000 




4292 










4293 


017047 


075 


041520 


000 PCMJ 


4294 










4295 


017053 


015 


052012 


040522 OD2BIG: 


4296 


017060 


045503 


046040 


046511 


4297 


017066 


052111 


020123 


042523 


4298 


017074 


042514 


052103 


042105 


4299 


017102 


047440 


052125 


047440 


4300 


017110 


020106 


040522 


043516 


4301 


017116 


105 






4302 


017117 


015 


042012 


043105 


4303 


017124 


052501 


052114 


047111 


4304 


017132 


020107 


047524 


000040 


4305 










4306 


017140 


005015 


042523 


052103 S2BIGS 


4307 


017146 


051117 


046040 


046511 


4308 


017154 


052111 


020123 


042523 


4309 


017162 


042514 


052103 


042105 


4310 


017170 


047440 


052125 


047440 


4311 


017176 


020106 


040522 


043516 


4312 


017204 


105 






4313 


017205 


015 


042012 


043105 


4314 


017212 


052501 


052114 


047111 


4315 


017220 


020107 


047524 


000040 


4316 










4317 


017226 


005015 


040503 


052125 D0LOADI 


4318 


017234 


047511 


020116 


020055 


4319 


017242 


043111 


054440 


052517 


4320 


017250 


042040 


051505 


051111 


4321 


017256 


020105 


047524 


052040 


4322 


017264 


051505 


020124 


047125 


4323 


017272 


052111 


030040 




4324 


017276 


005015 


042522 


046120 


4325 


017304 


041501 


020105 


047514 


4326 


017312 


042101 


046440 


042105 


4327 


017320 


052511 


020115 


044527 


4328 


017326 


044124 


040440 


051440 


4329 


017334 


051103 


052101 


044103 


4330 


017342 


042040 


051511 


042513 


4331 


017350 


052124 


105 




4332 


017353 


015 


052012 


042510 


4333 


017360 


020U6 


051120 


051505 


4334 


017366 


020123 


047503 


052116 


in<> 


CUTST& 


(UAH 1 1 


A49S9«> 


aa* m\ * 



.ASCIZ <15><12>"UNEXPECTED TRAP TO LOC, 10 OCCURRED" 



.ASCIZ 
.ASCII 



<15><12>"TRACK LIMITS SELECTED OUT 0* RANGE" 



.ASCIZ <15><12>"DEFAULTING TO 



.ASCII <15><12>"SECT0R LIMITS SELECTED OUT OF RANGE" 



.ASCIZ <15><12> W DEFAULTING TO 



9 ASC1I <15X12>"CAUTI0N • IF YOU DESIRE TO TEST UNIT 0" 



.ASCII <15><12> M REPLACE LOAD MEDIUM WITH A SCRATCH DISKETTE" 



.ASCIZ <15X12> W THEN PRESS C0NTINUE"<15><1 2> 
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SEQ 0122 



4316 


017402 


000 


4337 






4338 




017404 


4339 






4340 






4341 






4342 






4343 






4344 






4345 


017404 


000200 


4346 






4347 




000001 



.EVEN 

jTHE FOLLOWING LOCATIONS ARE USED FOR DATA STORAGE, RETRY COUNTERS 
I ACCESS COUNTERS ETC, 
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llliiiil 
1I11IIP 



ADJSUM 


01076b 


2321 


2394 


2412 


2750 


3029 


3047* 
















ASTAI 


012146 


2R07 


2916 


2923 


2972 


2990 


3158* 


3161 


3164 


3241* 


3245* 


3255 






BADBYT 


011454 


3040* 


3041 


3042 


3088 


3136* 


















BIT0 a 


000001 


179* 


2923 
























BIT00 = 


000001 


1698 


179 
























BIT01 = 


000002 


168s 


178 
























BIT02 = 


000004 


167* 


177 
























BIT03 s 


000010 


166* 


176 
























BIT04 = 


000020 


165* 


175 
























BIT05 = 


000040 


164* 


174 
























BIT06 = 


000100 


163* 


173 
























BIT07 = 


000200 


162* 


172 
























BIT08 = 


000400 


161* 


171 
























BIT09 = 


001000 


160* 


170 
























BIT1 s 


000002 


178* 


2807 


2916 






















BIT10 a 


002000 


159# 


























BIT11 a 


004000 


158* 


























BIT12 a 


010000 


157* 


























BIT13 a 


020000 


156* 


2872 
























BIT14 = 


040000 


155# 


449 


1431 


3432 


3446 


















BIT15 = 


100000 


154* 


454 


470 


3021 


3466 


3504 
















BIT2 a 


000004 


177* 


3161 
























BIT3 a 


000010 


176* 


























BIT4 a 


000020 


175# 


3233 


3572 






















BITS a 


000040 


174* 


1539 


2636 






















BIT6 a 


000100 


173* 


670 


830 


1082 


1243 


1287 


1301 


1341 


1359 


1401 


1420 


1488 


1592 






1831 


1850 


1956 


2972 


2990 


3423 


3428 


3434 












BIT7 = 


000200 


172* 


673 


674 


1382 


1491 


1492 


1596 


2447 


2453 


3028 


3083 


3509 


3574 


BITS a 


000400 


171* 


548 


832 


866 


2528 


2560 


2979 


2992 


3067 


3183 








BIT9 a 


001000 


170* 


























BPTVECa 


000014 


186* 


























BRLEV 


001214 


370* 


2491 
























BSTAT 


012150 


3191* 


32428 


3253* 


3261 




















BUFADR 


017404 


lb24 


1727 


3047* 


3048* 


3052* 


3055* 


3056 


3276 


3378 


43458 








BUSERR 


006130 


214 


2459* 
























BYTECN 


011452 


2753* 


2761* 


3026* 


3044* 


3084 


3101* 


31358 














CATERR 


003032 


1170 


1175* 


1178* 


1190* 




















CCOUNT 


002526 


438* 


835 


838* 


839 


841* 


877* 


2527* 














CEXIT 


004246 


1065 


1303 


1360 


1421 


1607 


1617 


1724 


1810 


18118 










CKBYTE 


010736 


30408 


























CKSUM 


011056 


3030# 


3041* 


3049* 


3050* 


3051* 


3052 


3053* 


3054* 


3055 


30598 


3117 






CKSWR s 


104405 


846 


891 


2524 


2565 


2571 


2621 


2670 


2770 


2776 


2825 


2830 


2835 


2863 






2871 


2875 


2938 


2943 


2954 


2959 


2974 


2982 


2993 


3069 


3097 


3109 


3123 






3144 


3150 


3168 


3176 


3192 


39518 
















COMMWO 


007634 


2332 


2792 


28508 


2895 




















CONT10 


010522 


2971 


29908 
























CONT11 


010470 


2976 


29828 


2995 






















CONT1 3 


007312 


2778 


27800 
























C0NT14 


007562 


2832 


2834* 
























CONT15 


010312 


2945 


29478 
























C0NT16 


010364 


2961 


29638 
























CONT17 


010502 


2984 


29863 
























CONT20 


011276 


3099 


3101# 
























CONT21 


011522 


3152 


3154# 
























CONT4 


007300 


2772 


2776# 

























MAINDEC-il»DZRXB-E MACY11 27(732) 16-MAR-76 15 J 55 PAGE 100 SEQ 0124 

DERXBE.Pll CROSS REFERENCE TABLE -• USER SYMBOLS 



3345* 3354* 3362* 33b3* 3372* 33/6 



CPUPRI 


006200 


CR a 


000015 


CRCER 


010234 


CRLF = 


000200 


DATABY 


012322 


DATACK 


007704 


DATACR 


010330 


DATAER 


011110 


DATA0 


012326 


DATA! 


012340 


DBLLF 


016252 


DBLSP 


016115 


DDCHK 


010410 


DDERR 


010452 


DDISP a 


177570 


DEATH 


003034 


DEXIT 


004260 


DING 


006450 


DISPLA 


001220 


DISPRE 


000174 


DONE 


012726 


DONEbis 


000040 


DRVSWP 


007012 


DSWR s 


177570 


DTESTP 


001212 


D0LOAD 


01722b 


EBIE a 


000103 


EMPBUF 


010644 


EMPDON 


011306 


EMPER 


011060 


EMPFLA 


010730 


EMTVECs 


000030 


EPCSCO 


006474 


ERCNTR 


0114b0 


ERMSG 


010566 


ERRORS 


006472 


ERPVEC= 


000004 


EXIT 


01 1446 


FAST 


002532 


FBEB 


004064 


FBIE s 


000101 


FILLBU 


007144 


FILLDO 


007332 


FILLER 


007222 


FILLFL 


007202 


FIRST 


001202 


FIRSTT 


002170 


FLOAT0 


012350 


FL0AT1 


012412 


FUNCTI 


007702 


GETPAT 


012260 


GETSEC 


013422 


GETTRA 


013104 


GETUNI 


012634 


GNS a 


****** 



1334 


1393 


24918 










948 


3636 


3646 










2924 


2932* 












958 


3607 


3646 










32918 


3300* 


3310* 


3316* 


3326* 


3334* 


3343* 


3377 














28618 


2890* 


2934* 


3104 








2933 


2937 


29548 










3043 


30678 












3281 


33008 












3282 


3310* 












419H 














3087 


3091 


3232 


41628 








2907 


29708 












2979# 


2998 












101* 


378 












1174 


1 1848 












1814s 


189b 


2030 


2084 


213b 


2271 


2308 


2561 


2571* 


3012 










378* 


419* 












2378 


419 












2743 


34448 












201« 


2796 


2899 


3166 








2427 


27170 












100# 


377 












3668 


445 


449 


452 


473 


867 




464 


43178 












2038 


3036 












2935 


30238 


3063 


3127 


3131 






3031 


31048 












3032 


30618 












30378 


3n38 


3045 


3102 








1B9« 














2517* 


2518* 


25818 


2613 








2936 


3027* 


3068* 


3074 


3107 


3113 


31388 


2977 


299b 


30028 


3tf78 


3147 


3196 




549* 


2519* 


25808 


2586 


2595* 


2b01 


3181* 


1828 














3025 


3129 


31328 










551* 


758* 


8798 


2540 








1625 


lb34* 


16 40 


1728 


2324 






202* 


2757 












27503 


2767 


2782 


281b 


2839 






2751 


2785* 


2812 










2752 


2764* 












2758* 


2759 


2762 










301» 


302 


509 


51 1* 


514 


517 


531* 


7578 


872 












3283 


33168 












3284 


3334* 












2329* 


2413* 


2788* 


2791* 


2850* 


2851 


26608 


1623 


2320 


2393 


241 1 


2717 


2735 


32768 


2749 


2B89 


35658 










2 7 06 


2720 


2738 


34858 








2318 


24 10 


27^5 


2719 


2723 


2737 


34238 


3944 


3945 


3946 


3947 


3949 


395] 


3952 



2894* 3198 
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GOODBY 


011456 


GTSWP s 


104404 


HANGER 


006756 


HANGPL 


006760 


HERE 


002462 


HLT10 


010 310 


HLT12 


010362 


HLT13 


010500 


HLT14 


011274 


HLT15 


011520 


HLT6 


007310 


HLT7 


007560 


HOME 


007706 


HT = 


00001 1 


HUNGUP 


006622 


ID s 


001201 


ILLADR 


005106 


INCERR 


006244 


INITSE 


013324 


INITTR 


012752 


INTLEA 


013420 


INTSER 


011526 


IOTVECs 


000020 


KRXVEC 


001204 


LAST a 


001203 


LF = 


000012 


LIMITS 


001622 


LIMTRK 


013140 


LOAD 


012510 


LOCKUP 


002556 


LOC10M 


017001 


LOC4M 


016734 


LOGICA 


002452 


MABELL 


006470 


MASTAT 


016222 


MBAD 


016635 


MBADCR 


016500 


MBSTAT 


016236 


MCOLMU 


016061 


MCRC 


016536 


MCRLF 


016120 


MDDMIS 


015747 


MDERHD 


015772 


MDTEST 


015614 


MEMPTY 


016402 


MERCT 


016333 


MERHEA 


016123 


MFIL 


016366 


MFIRST 


016457 


MGOOD 


016643 


MHUNGP 


006674 


MID 


016451 


MILTST 


002536 


MINTER 


016256 


MLAST 


016470 



3092* 


3094 


31378 














425 


39498 
















440* 


556* 


831* 


855* 


2638* 


2668* 


2693* 


2697* 


2785* 


441* 


557* 


666* 


2639* 


2669* 


2694* 


2b988 






858 


8648 
















29468 


















29628 


















29858 


















31008 


















31538 


















27798 


















28338 


















2834 


28638 


2880 














928 


36P.5 


3646 














2640 


26478 
















3008 


48b 


488 


496 


3469 










1913 


2046 


2099 


21408 


2145 










25198 


2520 
















2748 


2888 


35478 














2704 


2718 


2736 


34618 












3558* 


35638 


3570 


3571* 












2305 


2425 


2450 


3154 


31588 










1878 


















3048 


1018 


1072 


1236 


1277 


1319 


1375 


2304 


2424 


3028 


512 


514 


522 


3550* 


3551 


3567 






938 


3640 


3646 














478* 


505 
















3487 


35018 
















3301 


3321 


3344 


3364 


3373 


33768 








755 


8918 
















2475 


42858 
















2459 


42778 
















230 


8608 
















843 


2574 


25778 














3254 


41858 
















3119 


42588 
















2941 


4233# 
















3260 


41888 
















3082 


41548 
















2957 


42408 
















477 


526 


837 


849 


2532 


2775- 


2847 


2942 


2958 


3122 


3149 


3172 


3180 


3195 


3203 


3217 


3263 


41648 


2978 


41338 
















3079 


41398 
















472 


41158 
















3062 


42138 
















3112 


42048 
















3002 


41668 
















2765 


42108 
















516 


42278 
















3121 


42628 
















2674 


26848 
















495 


42248 
















874 


8838 
















3148 


41938 
















521 


4230# 
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MLIMTR 


016417 


MNOFLA 


016614 


MOD 


016445 


MONLY 


016203 


MORETE 


002162 


MPAR 


016577 


MPASS 


00672S 


MPRES 


016032 


MREAD 


016530 


MREV 


016704 


MRXCS 


016212 


MRX11 


016665 


MSECT 


016047 


MSEEK 


016555 


MSUM 


016650 


MTRK 


016020 


ML1KNIN 


016311 


MUNIT0 


016163 


MUNIT1 


016173 


MUNXDD 


015721 


MWRITE 


016570 


MX 


002534 


MXEHLA 


015636 


NEXTPD 


010132 


NOERTY 


011264 


NOINTE 


011462 


NOMOPE 


002274 


NOPRIN 


006420 


NOPRNT 


011726 


NOSCOP 


006504 


NXREAD 


01 1430 


OD 


001200 


OD2BIG 


017053 


OK2GO 


003036 


OPEN = 


000000 


PARTES 


007252 


PARTiP 


012022 


PASS 


032530 


PAT 


012324 


PATGEN 


012332 


PATTER 


012302 


PAT125 


012420 


PAT314 


012440 


PC = 


%000007 



481 


42178 
























3179 


42541 
























490 


42228 
























462 


41798 
























7558 


1B12 


1815 


2b73 


2682 


















2774 


3216 


4250# 






















850 


2689# 


3007 






















2842 


4147S 
























2919 


2927 


4238* 






















411 


4272* 
























3197 


3211 


41828 






















3208 


42688 
























3225 


4151* 
























2841 


42448 
























3116 


42648 
























3220 


41441* 
























3171 


41998 
























3235 


41738 
























461 


3237 


41768 






















2997 


4128* 
























2810 


2821 


2828 


42478 




















834* 


842 


8818 


1811* 


1814* 


















2530 


4119* 
























2783 


2906 


2909 


29118 


2921 


2929 


2949 


2966 


2989 










3071 


3075 


30978 






















2800 


2903 


31448 






















767 


8308 
























2526 


2560* 
























3192* 


























25958 


2623 
























3064 


3108 


3125 


31288 




















2998 


300 


471* 


478 


48b 


491 


504* 


3463* 


3464 


3467 


3471 


3475* 


3501 


3504* 


3506 


3509* 


3523* 


3526 


3536 


3538* , 














501 


42958 
























1177 


1189* 
























2068 


853 


2557 


2773 


3010 


3086 


3115 


3239 


4101 










2768 


27708 


2813 


2922 


3065 


















3189 


321 1# 


3251 






















439* 


844* 


851 


8788 


2555 


30H8 
















1615* 


1802* 


1807* 


2319* 


2390* 


2392* 


2407* 


2409* 


2423* 


2436* 


2448* 


3278 


32928 


33018 


3302 


3311 






















3230 


32818 
























3285 


3343S 
























3286 


33548 
























1138 


755* 


860* 


901* 


903* 


1334* 


1393* 


1432* 


1548* 


1616* 


1623* 


1625* 


1626* 


1634* 


1637* 


1639* 


1708* 


1723* 


1728* 


1729* 


1808* 


1809* 


1826* 


1845* 


1913* 


19b9* 


2046* 


2074* 


2099* 


2126* 


2140* 


2144* 


2148* 


2152* 


2156* 


2161* 


2164* 


2176* 


21/9* 


2185* 


2188* 


2194* 


2249* 


2307* 


2318* 


2320* 


2321* 


2324* 


2330* 


2332* 


2333* 


2339* 


2378* 


2379* 


2391* 


2393* 


2394* 


2396* 


2398* 


2408* 


2410* 


2411* 


2412* 


2414* 


2427* 


2452* 


2505* 


2561* 


2575* 


2632* 


2641* 


2696* 


2704* 


2705* 


2706* 


2707* 


2710* 


2717* 


2718* 


2719* 


2720* 


2721* 


2722* 


2723* 


2724* 


2725* 


2728* 


2735* 


2736* 


2737* 


2738* 


2739* 


2740* 


2743* 


2744* 


2748* 


2749* 


2750* 


2792* 


2803* 


2822* 


2829* 


2834* 


2838* 


2848* 


2852* 


2855* 


2858* 


2867* 


2874* 


2881* 


2883* 


2888* 


2889* 


2895* 


29k)7* 


2910* 


2913* 


2928* 


2935* 


2977* 


2980* 


2996» 


2999* 


3012* 


3013* 


3022* 


3029* 


3057* 


3 7 8 * 


3081* 


3106* 


3126* 


3130* 


3133* 


3 1 4 7 * 


3154* 


3175* 


3185* 


3189* 


3196* 


3202* 


3204* 


3206» 


3218* 


3238* 


3247* 


3251* 


3264* 


3 301* 


3321* 


3344* 


3364* 


3371* 


3373* 


33«0* 
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PCM 


017047 


PCONT 


007326 


PCSCOP 


006556 


PIRQ s 


177772 


PIRQVEs 


00024A 


PLOOP 


007322 


PRESTR 


013130 


PRETES 


002034 


PR0 s 


000000 


PPl = 


000040 


PP2 ■ 


000100 


PR3 s 


000140 


PR4 = 


000200 


PR5 a 


000240 


PR6 a 


000300 


PR7 = 


000340 


PS s 


177776 


PSW = 


177776 


PTYP1 


007264 


PWRVEC= 


000024 


RANDAT 


012470 


RANGEN 


012540 


RANUM 


012632 


RANI 


012626 


RAN2 


012630 


RDCHR = 


104406 


RDCODE 


012152 


RDDONE 


010110 


RDER = 


000017 


RDERR 


010142 


RDIE a 


000107 


RDLIN = 


104407 


RDONLY 


006762 


READ 


010014 


READCH 


010634 


REBEGI 


002466 


RECAL = 


040001 


REREAD 


010024 


RESEPR 


006154 


RESREGs 


104411 


RESTAR 


001350 


RESVEC= 


000010 


RETURN 


010564 


RTJUST 


015530 


RTN 


010012 


RTSPC 


006572 


RXCS 


001206 



3382* 
3542* 
4060* 
2466 
2766* 
551 

998 
1938 
2767* 
2843 
527 
1168 
117* 
1188 
1198 
1208 
1218 
1228 
1238 
1263 
968 
978 
2765* 
1888 
3288 
3371 
3372 
436* 
437* 
3892 
2874 
2892 

2008 
2893 

2058 
3953* 
2307 
2707 
2722 
676 
2078 
28908 

216 
39558 
404 
183# 
2973 
40908 
2865 
2630 

3068 
1301* 
1726* 
2096* 
2335 
3037 



3402* 
3559* 
4104* 
2483 
2781 
757* 



27828 

2882* 

5488 



1328 
1387 

215 
1281 
97 
1328* 
27738 
3961* 
33718 
33868 
3401* 
3387 
3388 
39528 
32458 
29058 
3184 
29158 
2894 

27048 
28888 
2 7 25 

754 
2395 
2920 
24758 
4059 

4308 

2991 
4110 
28838 
26328 

434 
1341* 
1825* 
2098* 
2338* 
3159 



3429* 
3575* 
4109* 
42938 
27838 
758 



2812* 
3485* 



217 

1290 

1 3 8 7 * 
2810* 
3962* 
3374 

34068 
3393* 
3395 



3022 
2740 
864 
2866 
2926 



3210 
29998 



553 

1359* 

1844* 

2102 

2395* 

3166 



3436* 
3614* 

4110* 

2811* 
2543 



292tf* 
34938 



221 
1323 



2919* 
3971* 



3398 
3400* 



30218 
8668 



2950 
3994 



830* 
1401* 
1910* 
2125* 
2629 
3184* 



3449* 
3621* 



2 9 2 1 * 
2596* 



3063* 
3524 



223 

1344 



3062* 
3977* 



34048 
34058 



2467 
2967 



917* 
1420* 
1912* 
2165 
2636 
3212 



3476* 
3628* 



3064* 
2624 



3505* 
3642* 



3510* 
3644* 



3514* 
38 33* 



3516* 
3993 



3527* 
4015* 



3529* 

4018* 



3540* 
4055* 



225 
1379 



2484 
2988 



919 
1431* 
1916 
2175* 
2757* 
3246* 



227 
1404 



1082* 

1435 

1968* 

2181 

2758 



431 
2306 



1196 

1538* 

1971 

2190 

2796 



1022 
2426 



1198 
1539 
1974 
2197 
2851* 



1030 
2451 



1243* 

1541 

2043* 

2248* 

2866* 



1248 

1551 

2045* 

2251 

2869 



1250 

1622* 

2049 

2254 

2899 



1287* 

1641 

2073* 

2323* 

3036* 



MAINDEOli*DERXB*E 
DZRXBE,pll CPO 



RXDB 001210 



RXERPO 011652 
RXPWR 012006 
R0 s%000000 



R3 »%PI00003 

R4 =%000004 



R5 



=%000005 



R6 = 


%000006 


R7 = 


%000007 


SAVREGs 


104410 


SA200 


001232 


SA202 


001222 


SCOPIN 


006536 


son 


006574 


SECCNT 


013414 


SECLMT 


001726 


SEEKER 


007526 


SEKRTY 


007602 


SEKTYP 


007606 


SEQUEN 


013136 


SEQ1 


013236 


SEQ2 


013272 


SGLDEC 


015600 



IACY11 


27C732) 


16-MAB" 


76 15S55 


PAGE 


104 














S£Q 0128 


ERENCE 


TABLE - 


- USER SYMBOLS 




















3488 


434* 


435* 


668 


973 


1486 


1590 


1628* 


1643 


1734 


1829 


1848 


1954 


1975 


1985 


2063 


2077 


2115 


2129 


2147* 


2155* 


2182 


2184* 


2191 


2193* 


22i7 


2255 


2263 


2326* 


2337 


2341 


2760* 


2854* 


2857* 


3040 


3158 


3187 


3191 


3245 


3249 


3253 
























3160 


3178 


3 1 8 1 # 


3182 




















3163 


3208* 
























104* 


402* 


408* 


442 


552* 


554 


667* 


674* 


675 


918* 


920 


972* 


974 


1 195* 


1196 


1247* 


1248 


1337 


1397 


1434* 


1436 


1485* 


1492* 


1493 


1542* 


I5b0* 


1552 


1593* 


1597* 


1598 


1733* 


1736 


1828* 


1832 


1847* 


1851 


1907* 


1915* 


1917 


1953* 


1957 


1973* 


1984* 


1987 


2039* 


2048* 


2050 


2062* 


2064 


2076* 


207 8 


2092* 


2101* 


2103 


2114* 


2116 


2128* 


2130 


2174* 


2196* 


2198 


2235* 


2238 


2253* 


22^2* 


2264 


2326 


2376* 


2491* 


2496* 


2498* 


2499* 


2500* 


2501* 


2502* 


2503* 


2549 


2760 


3042 


3056* 


3092 


3093* 


3386* 


3387* 


3388* 


3389* 


3391* 


3392* 


3393 


3394* 


3395* 


3396* 


3397* 


3398* 


3399* 


3400 


3401 


3597 


3598* 


3599 


3602* 


3750 


3775* 


392b 


3929* 


3930 


3931* 


3932* 


3933* 


3934* 


3963 


3988* 


4035* 


4036 


4054* 


4058* 


409tf 


4091* 


4092 


4093 


4095 


4097* 


4099* 


4102* 














105# 


553* 


554 


669* 


670* 


673* 


675 


919* 


920 


973* 


974 


1198* 


12b0* 


1316a 


1372* 


1382* 


1435* 


1436 


1487* 


1488* 


1491* 


1493 


1541* 


1551* 


I5b2 


1591* 


1592* 


1596* 


1598 


1643* 


1734* 


173b 


1830* 


1831* 


1832 


1849* 


1850* 


1851 


1916* 


1917 


1955* 


1956* 


1957 


1974* 


1985* 


1987 


2049* 


2050 


2063* 


2064 


2077* 


207 8 


2102* 


2103 


2115* 


2116 


2129* 


2130 


2165* 


2181* 


2190* 


2197* 


2198 


2237* 


2238 


2254* 


2263* 


2264 


2337* 


2377* 


2493 


2552 


2908 


2932 


3021* 


3028* 


3076 


30«3* 


31 32* 


3751 


3774* 


3964 


3987* 


4037* 


4043* 


4049* 












106* 


668* 


669 


1018* 


1019 


1021* 


1022* 


1023* 


1072* 


1073 


1075* 


1076* 


1077* 


1236* 


1237 


1239* 


1240* 


1241* 


1277* 


1278 


1280* 


1281* 


1282* 


1319* 


132k) 


1322* 


1323* 


1324* 


1375* 


1376 


1378* 


1379* 


1380* 


148b* 


1487 


1590* 


1591 


1621* 


1629* 


1676 


1725* 


1735* 


1829* 


1830 


1848* 


1849 


1906* 


1954* 


1955 


1975* 


196b* 


2040* 


2061* 


2093* 


2113* 


2142* 


2150* 


2158* 


2173* 


2182* 


2191* 


2236* 


22b5* 


2261* 


23w4* 


2305* 


2306* 


2322* 


2327* 


2341* 


2424* 


2425* 


2426* 


2449* 


2450* 


2451* 


2546 


3318* 


3320* 


3323 


3752 


3773* 


3965 


3986* 


4034* 


4037 


4038* 


4044* 


4045* 


4050* 


40bl* 


107# 


75b 


757 


760 


867* 


868* 


869 


871* 


3688 


3697* 


37wj* 


37v>4* 


3707* 


3712* 


3713* 


3714 


3723* 


3753 


3772* 


3888 


3889* 


3890 


3893* 


3894 


3898 


39W0 


3902* 


3904* 


3966 


3985* 


4042* 


4047* 


4053* 


4054 












108* 


1624* 


1628 


1727* 


1733 


2533* 


2534* 


2535 


327b* 


3377* 


33/8 


3689 


3691* 


3692* 


3693* 


3694 


3695* 


3709 


37H# 


3719» 


3722* 


3754 


3771* 


3967 


3984* 


4040* 


4043 


4049 


4051 






















1098 


852* 


857* 


860 


2556* 


3009* 


3085* 


3114* 


3278* 


3279* 


3280 


369v) 


3696* 


3b98* 


3700* 


3701* 


3702* 


3703 


3721* 


3755 


3770* 


3968 


3983* 


4041* 


4k)45 


40b2 


4108 


4111* 
























llk>» 


112 
























111* 


113 
























3954« 


4033 
























244 


4088 


875 






















245 


402* 
























2567 


2614 


26211 






















1432 


1548 


1639 


1826 


1845 


1969 


2074 


212b 


2144 


2152 


2161 


2179 


21B8 


2194 


2249 


2333 


2339 


239& 


2636K 


2867 


3185 


3247 










2801* 


2911* 


302 3 


3128* 


3551* 


3552* 


3553* 


3554* 


3561* 










482 


500 


5*59 8 






















2822 


2825* 


2928 






















2816* 


2837 


2839* 


2926* 




















2829 


28416 
























480* 


2447* 


2453* 


3461 


3466* 


348b 


34969 














3488 


35238 
























3489 


35368 
























852 


2556 


30^9 


3085 


3114 


4108s 

















) 



MAINDEC-11»DZRXB»E 
DZRXBE.P11 CRO 



SPACE 016641 

STACK = 001200 

STKLMTs 177774 

STR 006560 

STYP1 007540 

SUBSCO= 104412 

SUM 012536 

SWHLT1 007550 

SWR 001216 



SWREG 




000176 


SW0 


a 


000001 


SW00 


s 


000001 


SW01 


s 


000002 


SW02 


S 


000004 


SW03 


3 


000010 


SW04 


s 


000020 


SW05 


s 


000040 


SW06 


a 


000100 


SW07 


s 


000200 


SW08 


s 


000400 


SW09 


s 


001000 


swi 


s 


000002 


SW10 


s 


002000 


SW11 


■s 


004000 


SW12 


a 


010000 


SW13 


s 


020000 


SW14 


s 


040000 


SW15 


s 


100000 


SW2 


s 


000004 


SW3 


s 


000010 


SW4 


s 


000020 


SW5 


5S 


000040 


sw& 


ss 


000100 



IACY11 : 


27(732) 


16.MAR-" 


16 15:55 


PAGE 


105 














SEQ 0129 


'ERENCE 


TABLE - 


- USER SYMBOLS 




















112* 


403* 


410* 


412* 


417 


429 


431* 


432* 


473* 


491* 


496* 


517* 


522* 


759* 


900* 


1019* 


1023 


1025* 


1026* 


1030* 


1031* 


1073* 


1077 


1079* 


1080* 


1125* 


1126* 


1237* 


1241 


1258* 


1259* 


1263* 


1264* 


1278* 


1282 


1284* 


1285* 


1290* 


1291* 


1320* 


1324 


1326* 


1330 


1331 


1333 


1337* 


1338* 


1344* 


1345* 


1376* 


13*0 


13*5* 


1389 


1390 


1392 


1397* 


1398* 


1404* 


1405* 


1636* 


2163* 


2461* 


2467* 


2478* 


24&4* 


2517 


2533 


2535* 


2540* 


2543* 


2546* 


2549* 


2552* 


2596 


2613 


2624* 


2631* 


2678* 


2b95* 


2751* 


2752* 


2754* 


2755* 


2764 


278b* 


2787* 


2793* 


2794* 


28»6 


2843* 


2892* 


2893* 


289b* 


2897* 


2915 


2965* 


30O3* 


3031* 


3032* 


3033* 


3034* 


30bl 


3fc)B8* 


3094* 


3174* 


3198* 


3205* 


3212* 


3221* 


3228* 


3255* 


3261* 


3381 


3448* 


3597* 


3598 


3599* 


3b01 


3602 


3603* 


3605 


3607 


3609 


3615 


3617* 


3619* 


3627* 


3631 


3635 


3636 


3640 


3680* 


3681 


3682 


3683* 


3688* 


3689* 


3690* 


369b 


3721 


3722 


3723 


3724* 


3725* 


3750* 


3751* 


3752* 


3753* 


3754* 


3755* 


3756* 


3757* 


3758* 


3759* 


3766* 


3767* 


3768* 


3769* 


3770 


3771 


3772 


3773 


3774 


3775 


3793* 


3794* 


3795 


3802* 


3805* 


3806* 


3810* 


3811* 


3815 


3818* 


3822 


3824 


3826 


3827* 


3834 


3836 


3838* 


3839 


3841* 


3842* 


3843* 


3844* 


3845* 


3860* 


3861* 


3864* 


3865* 


3866 


3870* 


3871* 


38 7 2 


3875 


3877 


3879* 


3888* 


3893 


3904 


3905* 


3906* 


3907* 


3928* 


3929 


3963* 


3964* 


3965* 


3966* 


3967* 


3968* 


3969* 


3970 


3978* 


3982 


3983 


3984 


3985 


398b 


3987 


3988 


3993* 


4013 


4014* 


4016* 


4017* 


4034 


4036* 


4090* 


4091 


41tf2 


41n3* 


4108* 


2539 


2542 


2545 


2548 


2551 


2554 


4260# 














878 


297 


403 


410 


759 


















98# 


























1634 


2140 


2148 


2156 


2176 


2185 


2629« 


2852 


2855 










2821* 


2H28S 


2927* 






















957 


1015 


1189 


1228 


1255 


1273 


1470 


1532 


1547 


1585 


1672 


1838 


1948 


1963 


1980 


2056 


2069 


2109 


2121 


2 2 3<d 


2244 


2260 


2375 


3956K 






3049 


3277* 


3376* 


3384# 




















2827 


2830* 
























377* 


409* 


414 


418* 


423 


847 


8 92 


898 


2525 


2566 


2572 


2622 


2671 


2771 


2777 


2780 


2826 


2831 


2836 


2864 


2872 


287b 


2879 


2939 


2944 


2947 


2955 


2960 


2963 


2975 


2983 


2986 


2994 


3070 


3072 


3098 


3110 


3124 


3145 


3151 


3169 


3177 


3193 


3789 


3826* 


3969 


3982* 












238# 


418 


423 


3789 


3802 


















151# 


2572 
























141# 


151 
























140# 


150 
























139# 


149 
























1381 


148 
























137S 


147 
























1368 


146 
























135# 


145 
























134* 


144 
























133# 


143 
























1328 


142 
























150* 


























131* 


892 
























130# 


2622 


2780 


2836 


2879 


2947 


2963 


2986 


3124 










129# 


898 
























1288 


2525 


2671 


2771 


2826 


2939 


2955 


2975 


2994 


3070 


3110 


3145 


3169 


3177 


3193 
























127» 


847 
























1263 


2566 
























149# 


























148# 


























1478 


























146# 


























145# 



























MAIN0EC-11-DZRX8-E MACY1! 27(732) 
DZRXbE.Pll CROSS REFERENCE TABLE - 



16-MAP-76 15J55 
• USER SYMBOLS 



SW7 s 


000200 


SW8 x 


000400 


SW9 s 


001000 


S2BIG 


017140 


TAB 


016106 


TARGET 


013126 


TBITVEs 


000014 


TESTS 


002214 


TKVEC ■ 


000060 


TPVEC ■ 


000064 


TRAPVEs 


000034 


TPKCNT 


013124 


TRKLMT 


001642 


TRTVLCs 


000014 


TSECTO 


013416 



TYPADR 012050 
TYPCOD 012220 
TYPE * 104400 



TYPERR 


011210 


TYPOC = 


104401 


TYPON a 


104403 


TYPOS = 


104402 


T0NOTH 


002166 


Tl 


002620 


T10 


004140 


Til 


004226 


T12 


004216 


Tl 3 


004272 


T14 


004416 


T15 


004610 


T16 


004750 


Tl 7 


005216 


T2 


002740 


T20 


005462 


T21 


005506 


T21X 


005610 


T22 


005672 


T23 


005750 


T24 


006016 


T24X 


006024 


T25 


006050 


T26 


006062 


T3 


003262 


T4 


003420 


T5 


003564 


T6 


004010 



1448 


























1438 


2864 
























142# 


3072 
























528 


43068 
























3259 


4159a 
























2316* 


2857 


3047 


3050 


3221 


3467* 


3485 


3492» 


3503* 


3508* 


3511 


3513* 


3515 


3526* 


3528* 


3539* 


3541* 




















184S 


























757 


760 


7618 






















191 # 


























192# 


























190S 


























2708* 


2726* 


2741* 


3472* 


3473* 


3474* 


3477* 


3479* 


34918 










479 


486& 
























195* 


























2317* 


2854 


3048 


3051 


3226 


3555* 


3556* 


35628 


3565* 


3566* 


3567 


35b9* 


3570' 


3574* 


























2980 


3081 


3202 


32208 




















3204 


32548 
























411 


461 


462 


464 


472 


477 


481 


490 


495 


501 


516 


521 


526 


528 


837 


842 


843 


849 


850 


874 


2459 


2466 


2475 


2483 


2530 


2532 


2539 


2542 


25*5 


2548 


2551 


2554 


2574 


2674 


2773 


2774 


2775 


2828 


28 4 1 


2842 


2647 


2941 


2942 


2957 


2958 


2978 


2981 


2997 


3002 


3007 


3011 


30/9 


3080 


3062 


3067 


3091 


3096 


3112 


3116 


3119 


3121 


3122 


3148 


3149 


3171 


3172 


3179 


3180 


3195 


3197 


3203 


3208 


3209 


3211 


3216 


3217 


3220 


3225 


3232 


3235 


3237 


3254 


3259 


3260 


3263 


3610 


37)5 


3800 


38wl 


3804 


3817 


3828 


3847 


3696 


3899 


3903 


39448 


3991 


4100 












3077 


30848 
























36)03 


39458 
























2541 


2544 


2547 


25 5 


2553 


3095 


3262 


39478 












474 


492 


497 


518 


523 


2463 


2480 


2536 


2679 


2844 


3004 


3K89 


3199 


3213 


3222 


3229 


3256 


39468 


















756# 


761 
























761 


917* 
























764 


1715s 
























764 


1807* 
























764 


1 802* 
























764 


18238 
























764 


19068 
























764 


20398 
























764 


?092« 
























764 


21738 
























761 


10728 
























767 


2281« 


2905 






















767 


23168 
























2330 


23328 


2414 






















767 


23888 
























767 


24078 
























767 


2^238 
























24248 


2437 
























767 


24368 


2789 


2970 




















767 


24478 
























761 


1 3168 
























761 


13728 
























761 


14 318 
























761 


16158 
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DZRXBE.P11 CROSS REFERENCE TABLE « USER SYMBOLS 



T6F1LL 


004026 


T7 


004142 


T7EMPT 


004152 


UNITSE 


012724 


WRITE 


007134 


WRTDON 


007430 


WRTER 


007444 


WPTIE = 


000105 


WRTSEK 


007504 


WTDDIFs 


000115 


WTRDCK 


007066 


XERROR 


006232 


XFRBYT 


007210 


XHOME 


010004 


XID 


013134 


XOD 


013132 


XPATGE 


012356 


XREAD 


010020 


XSA202 


001574 


XSCOPE 


006476 


XSDN 


006736 


XSUBSC 


006516 


XWRITE 


007140 


XWTRDC 


007072 


XXPATG 


012426 


SAUTOB 


015044 


SCHARC 


013722 


SCKSWR 


014270 


SCNTLG 


015015 


SCNTLU 


015010 


SCRLF 


013737 


SDB2D 


015334 


SDECVL 


015514 


3FILLC 


013734 


SFILLS 


013733 


$GTSWR 


014340 


SHD a 


000003 


SILLUP 


015262 


SINTAG 


015045 


SLF 


013740 


SMAIL ■ 


#**#«* 


$MNEW 


015033 


$MSWR 


015022 


SNULL 


013732 


SOCNT 


014164 


SOMODE 


014166 


SPOWER 


015270 


SPWRAD 


015256 


SPWRDN 


015116 


IPWRMG 


015252 


SPWRUP 


015170 


SQUES 


013736 


SRDCHR 


014552 


SRDDECs 


##»#«■& 



1616 


16218 


1808 


2391 


2408 


761 


17238 








1723 


17258 


1809 


2378 


2398 


444* 


447* 


451* 


454* 


460* 470* 548 


1823 


1842 


1908 


2041 


2094 2388 252fi 


3233 


3423 


3 4 25 


3427* 


34?8* 3430 3432 


2721 


2724 


2739 


27488 




2786 


2 8 018 


281 1 


2823 




2787 


26068 








2048 


2788 








2808 


28168 








2068 


2791 








2452 


27358 








224 


25178 








27608 










2870 


28828 








3468* 


3469* 


3472 


34958 


3524 


3470* 


3471* 


3473 


34948 




33178 


3335 








28898 


2912 


3130 






443 


457 


463 


469 


4718 


220 


25868 








2637 


26938 








2601* 


3956 








27498 


2766 


2804 






27368 


2745 








33448 


3346 


3355 






427* 


3797 


391B8 






3612* 


3622* 


3629 


3638* 


36438 


37898 


3951 








3800 


39138 








3817 


39128 








3611 


36538 


3828 


3912 




4015 


40338 








4035 


40818 








3615. 


36508 








36498 










38018 


3949 








21 


22 








3961 


3977 


39968 






3829 


39198 








36548 


3903 


3912 






423 


3599 








3804 


39168 








3801 


39148 








3617 


36488 








3687* 


3716* 


3729# 






3682* 


3686* 


3691 


3694* 


3705* 37318 


3209 


3992 


39998 






39948 










222 


3961# 


3989 






3992# 










3971 


3977* 








36528 


3847 


3896 


3912 




3860$ 


3952 








3954 











671 832 
2560* 2850 
3434* 3435* 



866* 902* 
2979* 2992* 
34408 3444 



1469 1594 
3067* 3lb3* 
3446 35/^ 



MAINDEC-ll-DZRXB-E MACYU 27(732) 

DZRXBE.Pli CROSS REFERENCE TABLE - 



16-MAR-76 15155 

- USER SYMBOLS 



SRDLIN 


014672 


SPDOCTs 


*»*#»* 


$RDSZ a 


000010 


SPESRE 


014226 


$P2A 3 


###*## 


$SAVRE 


014170 


SSAVR6 


015266 


SSB2D 


015300 


$SETUP= 


0001 1 4 


$STUP = 


177777 


SSWR = 


160000 


STKB 


014266 


STKS 


014264 


STN s 


000001 


STNPWR 


015444 


STPB 


013730 


STPFLG 


013735 


STPS 


013726 


STRAP 


015046 


STRP = 


000013 



STRPAD 015070 

STTYIN 015000 

STVPBNs »***»# U 

$TYPDS= **»#»* U 

STYPE 01350b 



STYPEC 
STYPEX 
STYPOC 
STYPON 
STYPOS 
$0FILL 



013656 
013724 
013766 
014002 
013742 
014165 
s 017604 



38888 


3953 








3954 










38818 










37658 


3955 








3956 










37498 


3954 








3970* 


3978 


3979* 


3980* 


39988 


4013s 


4109 








2408 


420 


3784 


3918 




240# 










21 


22a 


3995 






3781 # 


3793 


3810 


3864 


3870 


3780» 


3791 


3807 


3831* 


3862 


21# 










4040 


4041 


40618 






3635* 


36478 








3593 


3651« 








3633 


364M 








22b 


39288 








3936* 


3945* 


3946* 


3947* 


39488 


3957s 










3933 


39434 








3889 


3 8 90 


3907 


3911 # 




3948 










3948 










35938 


3936 


3944 






3614 


3621 


3628 


3633» 


3634 


3639 


3641 


3644« 






36858 


3945 








3b84 


36878 


3947 






3680* 


394b 








3681* 


3685* 


3695 


37308 




210* 


212 


2138 


2198 


2298 


3647 


3648 


3649 


3650 


3651 


3918 


3919 


3920 


3973 


3997 



3953* 39548 



233» 
3652 
40818 



2 36 8 
3653 
43388 



2418 
3654 
43458 



2978 
3655 



8878 
3780 



1B03 
3781 



26918 
39U8 



3646 
3912 



MAINDEC 


-1 i-DZRXB 


-E 


MACY11 


27C732) 


lb-MAP" 


■76 15:55 


PAGE 


110 














SEQ 0133 


DZRXBF, 


Pll 


CROSS REFERENCE 


TABLE - 


- MACRO 


NAMES 




















COMMEN 


68 


1948 


564 


685 


927 


981 


1041 


1085 


1133 


1204 


1443 


1502 


1559 


1649 


lb83 




1747 


1858 


1924 


1994 


2207 


2283 


2347 


2648 
















ENDCOM 


78 


1948 


649 


750 


953 


1011 


1060 


1120 


1163 


1224 


I4b6 


1528 


1581 


I6b8 


1702 




1791 


1891 


1944 


2025 


2226 


2300 


2371 


2663 
















ERROR 


88# 


562 


682 


925 


979 


1039 


1131 


1202 


1254 


1272 


1296 


1351 


1414 


1441 


1500 




1546 


1557 


1605 


1647 


1681 


1745 


1837 


1856 


1922 


1962 


1979 


1992 


2055 


2068 


2082 




2108 


2120 


2134 


22P5 


2243 


2259 


2269 


2345 


2647 














ESCAPE 


1948 






























GETPPI 


1948 






























GETSWR 


71 


1948 


420 


























MULT 


1948 






























M7727 


2488 


618 


731 


1447 


1772 


1862 


1998 


2351 
















M7846 


2468 
2206 


563 


684 


926 


980 


1040 


1084 


1132 


1203 


1501 


.1558 


1648 


1682 


1746 


19<!3 


NEWTST 


1948 






























POP 


1948 


3770 


3962 


3983 
























PUSH 


1948 


3750 


3963 


3969 
























REPORT 


1948 






























SCOPE 


898 


550 


1064 


1300 


1358 


1419 


1606 


1706 


1795 


1895 


2029 


2083 


2135 


2270 




SETPRI 


68 


1948 


1337 


1344 


1397 


1404 




















SETTPA 


39368 


3945 


3946 


3947 


3949 


3951 


3952 


3953 


3954 


3955 


3956 










SETUP 


1948 






























SKIP 


1948 






























SLASH 


1948 






























SPACE 


1948 






























STARS 


68 


1948 


251 


25 2 


253 


264 


265 


266 


271 


272 


273 


292 


293 


294 


385 




396 


2509 


2510 


2514 


2515 


2712 


2730 


3140 


3272 


3295 


3304 


3329 


3337 


3348 


3357 




3366 


3421 


3483 


3498 


3518 


3531 


3578 


3657 


3734 


3779 


3784 


3852 


3881 


3922 


3959 




3975 


4004 


4022 


4083 


4340 






















SWRSU 


1948 






























TRMTRP 


39368 






























TYPBIN 


1948 






























TYPDEC 


1948 






























TYPNAM 


1948 






























TYPNUM 


1948 






























TYPOCS 


58 


1948 


473 


2461 


2478 


2843 


3003 


3198 


3212 


3221 


3228 


3255 








TYPOCT 


1948 


3802 




























TYPTXT 


1948 






























SSESCA 


1948 






























SSNEwT 


1948 






























SSSET 


39368 


3945 


3946 


3947 


3949 


3951 


3952 


3953 


3954 


3955 


3956 










SSSKIP 


1948 






























,EQUAT 


58 


84 




























,HEADE 


58 


11 




























.SETUP 


58 


240 




























,SDB2D 


68 


4020 




























.SPOWE 


68 


3957 




























9 SREAD 


71 


3777 




























8 S5AVE 


6# 


3732 




























,S5B2D 


68 


4002 




























.STRAP 


58 


3920 




























.STYPE 


58 


3576 




























8 $TYP0 


5? 


3655 
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5EQ 0134 



ADC 


557 


2639 


4050 


























ADD 


435 


556 


900 


lb36 


2163 


2518 


2631 


2638 


2695 


2965 


3041 


3050 


3051 


3174 


3205 




3376 


3387 


3388 


3398 


3448 


3566 


3570 


3603 


3683 


3693 


3818 


3827 


4016 


4049 


4051 


ASL 


871 


2498 


2499 


2500 


2501 


2502 


3279 


3841 


3842 


3843 


3932 










ASLB 


3053 






























BCC 


3319 






























BEQ 


415 


45^ 


459 


555 


676 


833 


848 


858 


893 


899 


921 


975 


1197 


1249 


1437 




1494 


1540 


1553 


1599 


1677 


1737 


1833 


1852 


19 j a 


1958 


1988 


2051 


20b5 


2079 


2104 




2117 


2131 


2199 


2239 


2265 


2520 


2567 


2614 


26 2"3 


2640 


2672 


2781 


2797 


2808 


29M0 




2906 


2917 


2987 


2991 


31-05 


3108 


3118 


3125 


3129 


3162 


3182 


3188 


3250 


3324 


3379 




3465 


3487 


. 3512 


3573 


3606 


3641 


3710 


3798 


3825 


3840 


4094 










BGE 


3568 






























BGT 


3075 


3717 


3837 


3878 
























BHI 


487 


489 


513 


515 
























BHIS 


870 






























BIC 


460 


471 


548 


670 


b73 


. 674 


830 


866 


8b8 


902 


1243 


1301 


1359 


1420 


1488 




149i 


1492 


1592 


1596 


1631 


1850 


1956 


2453 


2503 


3083 


3227 


3389 


3399 


3427 


3434 




3463 


3504 


3509 


3523 


3538 


3565 


3707 


3794 


3811 


3838 


3865 


3871 


3879 






BIS 


447 


451 


454 


470 


1082 


1287 


1341 


1382 


1401 


1431 


2395 


2447 


2560 


2979 


299 2 




3021 


3028 


3067 


3183 


3428 


3435 


346b 


3475 


3574 


3712 


3713 


3845 


4053 






BI5B 


2850 






























BIT 


445 


449 


832 


847 


892 


896 


1539 


2525 


2528 


2566 


2572 


2622 


2636 


2671 


27/1 




2780 


2796 


2807 


282b 


2836 


2864 


2872 


2879 


2899 


2916 


2923 


2939 


2947 


2955 


29b3 




2975 


2986 


2990 


2994 


3070 


3072 


3110 


3124 


3145 


3161 


3164 


3169 


3177 


3187 


3193 




3233 


3249 


3423 


3432 


3446 


3572 




















BITB 


2972 


3166 


3629 


























BLOS 


3891 






























BLT 


3620 


3718 


3835 


3876 


4046 






















BMI 


672 


1490 


1595 


2495 


3160 


3462 


3488 


















BNE 


422 


424 


443 


44b 


457 


479 


510 


558 


836 


840 


856 


1174 


2526 


2529 


2573 




2587 


2602 


2637 


2709 


2727 


2742 


2772 


2790 


2799 


2802 


2827 


2837 


28b5 


2873 


2880 




2902 


2912 


2924 


2937 


2940 


2948 


2956 


2964 


2971 


2973 


2976 


2995 


3024 


3043 


3071 




3073 


3111 


3146 


3165 


3167 


3170 


3178 


3194 


3234 


3424 


3433 


3447 


3525 


3548 


3600 




3608 


361b 


3b30 


3637 


3708 


379tf 


3796 


3816 


3823 


3830 


3867 


3873 


3895 


39m 


39bi 




4057 


4096 




























BPL 


453 


1642 


1824 


1843 


1909 


197 2 


2042 


2095 


2252 


2336 


2389 


2630 


2759 


2778 


2832 




2870 


2877 


2909 


2933 


2945 


2961 


2984 


3038 


3077 


3099 


3152 


3426 


3431 


3445 


3502 




3507 


3537 


3594 


3634 


370b 


3792 


3808 


3863 


3869 














BR 


242 


243 


404 


416 


426 


448 


463 


4b9 


482 


500 


5 05 


527 


532 


754 


8/2 




1177 


1329 


1332 


J388 


1391 


1408 


1433 


1549 


1630 


1635 


1640 


1796 


1803 


1827 


18*6 




I 9 1 1 


1914 


1970 


2044 


2047 


2075 


2097 


2100 


2127 


2141 


2143 


2145 


2146 


2149 


2151 




2153 


2154 


2157 


2159 


2162 


2166 


2177 


2178 


2180 


2183 


2186 


2187 


2189 


2192 


2195 




2250 


2325 


2328 


2334 


2 3 40 


2397 


2745 


2762 


2823 


2853 


2856 


2868 


2929 


2949 


2998 




3045 


3120 


3186 


3190 


3 236 


3248 


3252 


3302 


3311 


3327 


3335 


3346 


3355 


3365 


3374 




3478 


3480 


3489 


359b 


3613 


3623 


3632 


3639 


3684 


3699 


3720 


3819 


384b 


3848 


3B74 




3897 


3973 


3997 


4048 


4098 






















BVS 


845 






























CLC 


3322 


3390 




























CLR 


408 


438 


439 


440 


444 


480 


504 


549 


831 


841 


917 


972 


1025 


1079 


1190 




1258 


1284 


1316 


1372 


1542 


1597 


1621 


1725 


1807 


1906 


1907 


1953 


1986 


2039 


2040 




2061 


2092 


2093 


2113 


2114 


2147 


2155 


2173 


2174 


2235 


22 36 


2261 


2322 


2376 


2377 




2390 


2407 


2527 


2595 


2668 


2693 


27 5 3 


2754 


2785 


2793 


2890 


2891 


2896 


3026 


3027 




3030 


3033 


3132 


3277 


3300 


3334 


3394 


3468 


3470 


3515 


3697 


3805 


3806 


3979 


4042 


CLRB 


3554 


3612 


3638 


3902 


4058 






















CMP 


414 


417 


423 


554 


675 


839 


869 


920 


974 


1196 


1248 


1330 


1389 


143b 


1493 




1552 


1598 


lb7b 


1736 


1832 


1851 


1917 


1957 


1987 


2050 


2064 


2078 


2103 


2J 16 


2130 
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w 



CMPB 

COMB 

DEC 

DECS 

EMT 

HALT 

INC 



INCB 

IOT 

JMP 



2198 
3836 

455 
3894 
3345 
2496 
3619 
88 

212 
3972 

402 

2901 

3719 

1175 

89 

244 
1896 
2782 
3102 

755 
1809 
2176 
2378 
2704 
2737 
2874 
3081 
3321 

403 

531 

918 
1077 
1264 
1327 
1387 
1551 
1829 
1975 
2102 
2237 
2337 
2478 
2694 
2821 
3031 
3212 
3401 
3689 
3756 
3826 
3963 
3986 
4040 

427 
2894 
3372 



2238 

3866 

486 

3900 

2708 
3622 

468 
3996 

838 
2934 
3844 
3642 

245 
2030 
2783 
3127 
852 
1826 
2179 
2391 
2705 
2738 
2888 
3085 
3344 
409 
551 
919 
1080 
1277 
1328 
1390 
1590 
1830 
1984 
2115 
2248 
2338 
2484 
2751 
2843 
3032 
3221 
3472 
3690 
3757 
3831 
3964 
3987 
4041 
491 
3040 
3377 



22b4 

3872 

488 

4095 

2726 
3705 



844 
3044 
3980 



760 
2084 
2800 
3131 
860 
1845 
2185 
2393 
2706 
2739 
2889 
3114 
3364 
410 
552 
973 
1125 
1278 
1331 
1392 
1591 
1844 
1985 
2125 
2253 
2341 
2491 
2752 
2851 
3034 
3226 
3477 
3696 
3758 
3860 
3965 
3988 
4090 
496 
3047 
3467 



2613 

3875 

512 



2741 
371b 



855 
306b 
4047 



864 
2136 
2804 
3163 
1334 
1913 
2188 
2394 
2707 
2740 
2895 
3126 
3371 

412 

553 
1018 
1126 
1280 
1333 
1397 
1593 
1847 
2043 
2128 
2254 
2413 
2517 
2755 
2866 
3036 
3228 
3479 
3703 
3759 
3861 
3966 
3989 
4091 

511 
3048 
3469 



2789 

3877 

514 



1629 
3093 



875 
2271 
2813 
3210 
1393 
1969 
2194 
2396 
2717 
2743 
2907 
3130 
3373 

413 

666 
1019 
1195 
1281 
1337 
1398 
1615 
1848 
2045 
2129 
2255 
2423 
2533 
2757 
2882 
3049 
3246 
3503 
3721 
3766 
3888 
3967 
3990 
4092 

517 
3052 
3471 



2905 
3 8 90 
3042 



1735 
3101 



1 065 
2308 
2839 
3280 
1432 
2046 
2249 
2398 
2718 
2748 
2928 
3147 
3614 
418 
667 
1021 
1198 
1282 
1338 
1404 
1622 
1849 
2048 
2165 
2262 
2424 
2535 
2765 
2892 
3056 
3255 
3508 
3722 
3767 
3889 
3968 
3993 
4102 
522 
3055 
3485 



2970 
4052 
3524 



2142 
3181 



1303 
2331 
2903 

1548 
2074 
2307 
2408 
2719 
2749 
2935 
3154 
3621 
419 
668 
1022 
1236 
1285 
1344 
1405 
1624 
1910 
2049 
2175 
2263 
2425 
2540 
2766 
2893 
3062 
3261 
3513 
3723 
3768 
3904 
3969 
4013 
4103 
1628 
3092 
3526 



3074 
3567 



2150 
3320 



1360 
2399 
2922 

1616 
2099 
2318 
2410 
2720 
2750 
2977 
3185 
3628 
429 
669 
1023 
1237 
1290 
1345 
1434 
1643 
1912 
2062 
2181 
2304 
2426 
2543 
2767 
2897 
3063 
3276 
3539 
3724 
3769 
3905 
3970 
4014 
4108 
1733 
3158 
3550 



3378 
3605 



2158 
3363 



1421 
2415 
2950 

1623 
2126 
2320 
2411 
2721 
2792 
2980 
3189 
3833 
431 
757 
1026 
1239 
1291 
1375 
1435 
1726 
1915 
2063 
2182 
2305 
2436 
2546 
2786 
2919 
3064 
3278 
3558 
3725 
3770 
3906 
3971 
4017 

1734 
3191 
3551 



3511 
3607 



2946 



2327 
3474 



1607 
2428 
2966 

1625 
2140 
2321 
2412 
2722 
2822 
2996 
3196 
4015 
432 
758 
1030 
1240 
1319 
1376 
1485 
1727 
1916 
2073 
2184 
2306 
2448 
2549 
2787 
2920 
3084 
3318 
3597 
3750 
3771 
3907 
3977 
4034 

2326 
3245 
3555 



3789 
3615 



2392 
3528 



1617 
2437 
2967 

1634 
2144 
2324 
2414 
2723 
2829 
3009 
3202 
4109 
434 
759 
1031 
1241 
1320 
1378 
I486 
1802 
1954 
2076 
2190 
2316 
2449 
2552 
2794 
2921 
3088 
3362 
3598 
3751 
3772 
3928 
3978 
4035 

2760 
3253 
3569 



3795 
3636 



2409 
3549 



1724 
2454 
2988 

1639 
2148 
2330 
2427 
2724 
2834 
3012 
3204 
4110 
436 
834 
1072 
1247 
1322 
1379 
1487 
1811 
1955 
2077 
2191 
2317 
2450 
2555 
2810 
2926 
3094 
3386 
3602 
3752 
3773 
3929 
3982 
4036 

2788 
3310 
3599 



3815 
3640 



2519 
3553 



1810 
2673 
2989 

1723 
2152 
2332 
2452 
2725 
2852 
3022 
3247 

437 
851 
1073 
1250 
1323 
1380 
1538 
1814 
1968 
2096 
2193 
2319 
2451 
2596 
2811 
2927 
3113 
3393 
3617 
3753 
3774 
3933 
3983 
4037 

2791 
3316 
3627 



3822 
3797 



27fol 
357i 



1812 
2bB2 
3025 

1728 
2156 
2333 
2556 
2735 
2855 
3029 
3251 

441 
857 
1075 
1259 
1324 
1385 
1541 
1825 
1973 
2098 
2196 
2323 
2461 
2624 
2812 
3003 
3184 
3395 
3680 
3754 
3775 
3961 
3984 
4038 

2854 
3343 
3635 



3834 
3829 



2798 
3711 



1815 
2768 
3065 

1808 
2161 
2339 
2561 
2736 
28b7 
30/8 
3301 

473 
867 
10/6 
1263 
1326 
1386 
1550 
1828 
1974 
2101 
2197 
2329 
2467 
2669 
2816 
3008 
3198 
3400 
3688 
3755 
3802 
3962 
3985 
4039 

2857 
3354 
3681 



MAINDEC*li«DZRXB*E MACY11 27(732) 
DZRXBE.P11 CROSS REFERENCE TABLE - 



NEG 

NEGB 

NOP 

RESET 

ROL 

ROLB 

ROR 

RTI 



SBC 

SEC 

SUB 

TRAP 

TST 



.ASCII 

.ASCIZ 



,BLKB 
.BYTE 



.DSABL 
9 ENABL 
.END 
,ENDC 



,EQUIV 



.EVEN 
.IF 



3682 
4054 
3692 
3054 

861 
1715 

430 
3391 
3326 
3396 

433 
2569 
3880 

901 
2744 
3206 
3527 
4044 
3317 
2534 
3936 

421 
2764 
3098 
3609 

509 
3425 
3652 

881 
4139 
4191 
4247 
3911 

475 
2538 
3257 
3849 
4 
4347 
16 

294 
1014 
1506 
2028 
2652 
3231 
3519 
3891 
3951 
4005 
88 

170 

887 
12 

293 
1011 



3685 
4097 



859 
3392 

3397 
1027 
2597 
3908 
903 
2803 
3218 
1529 

3325 
2678 
3945 

442 
2777 
310 4 
3631 

671 
3461 
3653 

883 
4144 
4193 
4250 
4081 

47b 
2680 
3258 

3782 

88 
295 
1045 
1531 
2211 
2666 
3232 
3532 
3894 
3952 
4023 

89 

171 

2578 

86 

294 

1042 



3686 
4099 
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3695 



1032 
2603 
3995 
1626 
2838 
3236 
3540 



3473 
3946 

452 
2806 
3107 
3709 
1489 
3506 
4295 
2577 
4147 
4199 
4254 
4345 

493 
2b81 
3648 



180 

386 

1063 

1563 

2229 

2713 

3258 

3579 

3896 

3953 

4084 

97 

172 

2691 

152 

385 

1060 



1081 
2615 

1637 
2848 
3264 
3542 



3552 
3947 
458 
2831 
3151 
3824 
1594 
3593 
4306 
2684 
4151 
4204 
4258 

494 
2845 
3649 



194 

397 

1089 

1584 

2287 

2731 

3259 

3599 

3912 

3954 

4341 

112 

173 

4001 

180 

396 

1086 



1127 
2b25 

1708 
2858 
3380 
3559 



3556 
3949 
478 
2869 
3159 
3B39 
1823 
3633 
4317 
2689 
4154 
4210 
4260 

498 
2846 
3650 



240 
423 
1123 
1653 
2303 
2846 
3273 
3658 
3920 
3955 

113 

174 

4338 

240 

420 

1120 



1260 
2?56 

1729 
2881 
3382 
3575 



4043 
3951 
756 
2876 
3323 
3930 
1908 
3791 
4324 
3654 
4159 
4213 
4262 

499 

3005 
3651 



252 
429 
1137 
1671 
2351 
2847 
3296 
3735 
3923 
3956 

142 
175 

251 

423 

1134 



1124 
3704 



1265 
279b 

2164 
2883 
3402 
3644 



4045 
3952 
835 
2908 
3381 

2041 
3807 

3912 
4lb2 
4217 
4264 

519 

3006 
3727 



253 

476 
1166 
1687 
2374 
3006 
3305 
3780 
3929 
3 960 

143 
176 

252 

475 

1163 



) 



1286 
2898 

2379 
2910 
3429 
3934 



3953 
1170 
2915 
3430 

2094 
3862 

3913 
41 6 4 
4222 
4268 

520 
32^0 
372B 



254 
477 
1208 
1705 
2465 
3007 
3330 
3783 
3932 
3969 

144 
177 

253 

476 

1205 



1292 
3035 

2505 
2913 
3436 
4018 



3954 
1641 
2932 
3444 

2388 
3868 

3914 
4166 
4224 
4272 

524 
32*H 
3729 



265 
568 
1227 
1751 
2466 
3141 
3338 
37B5 
3944 
3970 

145 
178 

264 
565 

1224 



1339 
3173 

2575 
2999 
3449 
4060 



3955 
1842 
2936 
3464 

2493 
4093 

3916 
4173 
4227 
4277 

525 

32H 
3730 



266 
652 
1338 
1794 
2482 
3201 
3349 
3813 
3945 
3976 

146 
179 

265 
649 
1337 



1346 
3604 

2632 
3013 
3476 
4104 



3956 
1971 
2944 

3486 

2629 



3999 
4176 
4230 

4285 

2464 
3215 
3909 



267 
689 
1345 
1862 
2483 
3202 
3358 
3849 
3946 
3962 

147 



266 

686 

1344 



1399 
3726 

2641 
3057 
3505 
4111 



2251 
2960 
3501 



4115 
4179 
4233 
4293 

2465 
3223 
3910 



272 
753 
1398 
1894 
2510 
3215 
3367 
3853 
3947 
3983 

148 



271 

750 

1397 



1406 
3760 

2696 
3106 
3510 



2335 

2983 
3536 



4119 
4182 
4238 
4302 

2481 
3224 
3918 



273 
931 
1405 
1928 
2511 
3216 
3422 
3881 
3948 
3993 

149 



272 

928 
1404 



2469 
3776 

2710 
3133 
3514 



2586 

3023 
3547 



4128 
4165 
4240 
4313 

24 8 2 
323M 
3919 



274 
956 
1447 
1947 
2515 
3224 
3484 
3882 
3949 
3995 

150 



273 
963 
1444 



2486 
38J2 

2728 
31 ?5 

3516 



2601 
3061 
3601 



4133 
4188 
4244 
43 3 2 

2537 
3231 



293 
985 
1469 
19*8 
2516 
3225 
3499 
3889 
3950 
4 00 2 

151 



2*2 

98 2 
146b 
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DZRXBE. 


Pll 


CROSS 1 


REFERENCE 


TABLE - 


- PERMANENT SYMBOLS 




















1503 


1528 


1560 


1581 


1650 


1668 


1684 


1702 


1748 


1791 


1859 


1891 


1925 


1944 


199b 




2025 


2208 


2226 


2284 


2300 


2348 


2371 


2464 


2465 


248i 


2482 


2509 


2510 


2514 


2515 




2649 


2663 


2712 


2730 


2845 


2846 


3005 


3006 


3140 


3200 


3201 


3214 


3215 


3223 


3224 




3230 


3231 


3257 


3258 


3272 


3295 


3304 


3329 


3337 


3346 


3357 


3366 


3421 


3483 


34ys 




3518 


3531 


3578 


3599 


3657 


3734 


3779 


3783 


3784 


3785 


3813 


3852 


3853 


3881 


3889 




3890 


3894 


3895 


3911 


3912 


3918 


3922 


3928 


3932 


3936 


3945 


3946 


3947 


3948 


3949 




3951 


3952 


3953 


3954 


3955 


3956 


3959 


3969 


3970 


3975 


3982 


3983 


3991 


3993 


3995 




3999 


4004 


4022 


4083 


4340 






















.IFF 


88 


252 


253 


254 


265 


266 


267 


272 


27 3 


274 


293 


294 


295 


386 


3*7 




476 


1337 


1344 


1397 


1404 


2464 


2465 


2481 


2482 


2510 


2511 


2515 


2516 


2713 


2731 




2846 


3005 


3006 


3141 


3201 


3215 


3224 


3231 


3258 


3273 


3296 


3305 


3330 


3338 


3349 




3358 


3367 


3422 


3484 


3499 


3519 


3532 


3579 


3658 


3735 


3780 


3785 


3853 


3855 


3860 




3881 


3882 


3891 


3895 


3912 


3923 


3929 


3960 


3976 


3993 


4005 


4023 


4084 


4341 




,IFT 


3855 


3860 




























,IFTF 


3800 


3853 


3856 


























,IIF 


1 1 


16 


21 


22 


474 


2462 


2479 


2844 


3004 


3199 


3213 


3222 


3229 


3256 


3646 




3647 


3648 


3649 


3650 


3651 


3652 


3653 


3654 


3655 


3780 


3781 


3803 


3904 


3912 


3918 




3919 


3920 


3944 


3945 


3946 


3947 


3949 


3951 


3952 


3953 


3954 


3955 


3956 






,IRP 


240 


3750 


3770 


3963 


3969 


3982 


3983 


















.LIST 


3 


194 


212 


240 


564 


653 


685 


754 


927 


957 


981 


1015 


1041 


1064 


1085 




1124 


1133 


1167 


1204 


1228 


1443 


1470 


1502 


1532 


1559 


1585 


1649 


1672 


1683 


1706 




1747 


1795 


1858 


1895 


1924 


1948 


1994 


2029 


2207 


2230 


2283 


2304 


2347 


2375 


2648 




2667 


3881 


3936 


3944 


3945 


3946 


3947 


3948 


3949 


3950 


3951 


3952 


3953 


3954 


3955 




3956 


3957 




























.MACRO 


246 


248 


3936 


























9 MCALL 


5 


6 


7 


194 
























,NLIST 


2 


194 


212 


240 


564 


653 


685 


754 


927 


957 


981 


1015 


1041 


1064 


1085 




1124 


1133 


1167 


1204 


1228 


1443 


1470 


1502 


1532 


1559 


1585 


1649 


1672 


1683 


1706 




1747 


1795 


1858 


1895 


1924 


1948 


1994 


2029 


2207 


2230 


2283 


2304 


2347 


2375 


2648 




2667 


3881 


3936 


3944 


3945 


3946 


3947 


3948 


3949 


3950 


3951 


3952 


3953 


3954 


3955 




3956 


3957 




























.PAGE 


43 


83 


2507 


























,REPT 


212 


565 


649 


686 


750 


928 


953 


982 


1011 


1042 


1060 


1086 


1120 


1134 


1163 




1205 


1224 


1444 


1466 


1503 


1528 


1560 


1581 


1650 


1668 


1684 


1702 


1748 


1791 


1859 




1891 


1925 


1944 


1995 


2025 


2208 


2226 


2284 


2300 


2348 


2371 


2649 


2663 






.SBTTL 


84 


249 


269 


295 


346 


398 


420 


533 


904 


1066 


1304 


1362 


1422 


1608 


1709 




1717 


1798 


1805 


1817 


1897 


2032 


2085 


2168 


2273 


2311 


2380 


2402 


2417 


2431 


2439 




2507 


2582 


2699 


2746 


2885 


3016 


3156 


3265 


3408 


3451 


3543 


3576 


3655 


3732 


3777 




3920 


3936 


3957 


4002 


4020 


4112 




















.TITLE 


11 






























9 WORD 


211 

3781 


214 
3992 


215 
3994 


216 
4019 


217 
4056 


234 


377 


378 


1178 


3090 


3643 


3646 


3647 


3731 


3780 
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